Question

我正在尝试将数据从.MDB文件绑定到Visual Basic中的Windows窗体项目。大多数函数都使用数组“Hubs”，所以我想用从我的数据库中提取的信息填充这个数组。使用向导创建DataSet后，我创建了以下代码。

Public Sub LoadData()
    For i As Integer = 0 To 15
        With Hubs(i)
            .ID = HubsDataSet.Tables("Hubs").Rows(i).Item(1).ToString 'This line is flagged as bad by the unit tests.
            .City = HubsDataSet.Tables("Hubs").Rows(i).Item(2).ToString
            .Lat = HubsDataSet.Tables("Hubs").Rows(i).Item(3).ToString
            .Lon = HubsDataSet.Tables("Hubs").Rows(i).Item(4).ToString
        End With
    Next

    'Load ID1ComboBox List
    For i As Integer = 0 To 15
        ID1ComboBox.Items.Add(Hubs(i).ID)
    Next

    'Load ID2ComboBox List
    For i As Integer = 0 To 15
        ID2ComboBox.Items.Add(Hubs(i).ID)
    Next

    'Set default values for Combo boxes
    ID1ComboBox.SelectedIndex = 0
    ID2ComboBox.SelectedIndex = 1

End Sub

虽然项目似乎运行正常，但我现在发现我的所有单元测试都失败了，抛出了没有Row 0的错误。另外，如果我尝试为每个语句而不是for循环使用a，程序将不再起作用（它完全跳过这些行，因为它没有达到我插入的断点）。我是新手，很困惑我做错了什么。

VB.Net将Access数据库中的信息插入到数组中

0 个答案: