2012-03-01 2 views
0

Это немного отличается.Предоставление свойств datagrid item

Следующий код был взят из сценария javascript. То, что он (предположительно) делает, присваивает свойства позиции. Имя, массив отношений, массив раундов (который они потеряли), итоговые победы, три оценки тай-брейка, и если у них было свидание. (Это для алгоритма спаривания swiss.)

data[pid] = { 
     name: name, 
     relations: {}, 
     rounds: {}, 
     wins: 0, 
     tie1: 0, 
     tie2: 0, 
     tie3: 0, 
     hadBye: false 
    }; 

Я хочу сделать что-то подобное в Visual Basic. Я вытаскиваю данные из таблицы, используя OleDBReader. Я хочу дать каждому элементу, который вытащил набор этих свойств. Затем, каким-то образом, меняя их.

Как мне начать с этого?

ответ

1

Надеюсь, это поможет вам двигаться в правильном направлении. Я установил довольно простой пример.

Сначала я создал класс LineItem объект, который выглядит примерно так:

Public Class LineItem 

    Public Property name As String 
    Public Property relations As List(Of String) 
    Public Property rounds As List(Of String) 
    Public Property wins As Integer 
    Public Property tie1 As Integer 
    Public Property tie2 As Integer 
    Public Property tie3 As Integer 
    Public Property hadBye As Boolean 

    Public Sub New(ByVal name As String) 
     'Just a simple constructor 
     Me.name = name 
    End Sub 

    'No methods for the sake of simplicity 

End Class 

Затем в методе, выполняющего все работы, я создаю новый LineItem и просто программу настройки некоторые свойства для него, как так :

Private Sub SetupMyObject() 
     Dim lineItem1 As New LineItem("myName") 
     'Add some relations 
     lineItem1.relations.Add("firstRelation") 
     lineItem1.relations.Add("secondRelation") 
     'Add some rounds 
     lineItem1.rounds.Add("firstRound") 
     lineItem1.rounds.Add("secondRound") 
     'Set wins 
     lineItem1.wins = 4 
     'Set tie1 
     lineItem1.tie1 = 2 
     'set tie2 
     lineItem1.tie2 = 0 
     'set tie3 
     lineItem1.tie3 = 3 
     'Set the bye flag 
     lineItem1.hadBye = False 
    End Sub 

Этот код довольно абстрактный, поэтому его изменение в соответствии с вашими потребностями не должно быть слишком сложным.

Смежные вопросы