Присвоение свойств элементу сетки данных

Question

Это немного по-другому.

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

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

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

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

Answer 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

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