在vb.net中构建一个多维数组

Question

我试图构建一个多维数组，它将为数据库中的每条记录保存两位信息id，说明。

这就是我目前正在做的。

Dim mArray(,) As String 
Dim i As Integer = 0 
While cmdReader.Read() 
    mArray(i,0) = cmdReader.Item("id") 
    mArray(i,1) = cmdReader.Item("description") 
    i = i + 1 
End While 

我这里的问题是，它不喜欢在mArray(i,0)的i。任何人对此有任何想法？这是给出的错误Object reference not set to an instance of an object.

感谢您的任何和所有帮助。

Nalum

Answer 1

为什么不情愿利用List Class和Dictionary Class

你可以而不是创建一个字典列表，用键和值两个字符串。然后密钥可以表示您的密钥（您的示例中的ID和描述，并且该值可以是曾经存储的值）。

喜欢的东西

Dim values As New List(Of Dictionary(Of String, String))() 

，然后在while循环类似

values.Add(New Dictionary(Of String, String)() From { _ 
    {"id", cmdReader.Item("id")} _ 
}) 
values.Add(New Dictionary(Of String, String)() From { _ 
    {"description", cmdReader.Item("description")} _ 
}) 

然后，您可以使用的foreach

For Each value As Dictionary(Of String, String) In values 
    Dim id As String = value("id") 
    Dim description As String = value("description") 
Next 

或A

For i As Integer = 0 To values.Count - 1 
    Dim value As Dictionary(Of String, String) = values(i) 
    Dim id As String = value("id") 
    Dim description As String = value("description") 
Next 

Answer 2

问题是你没有初始化数组。

这应该工作，直到i将达不到在初始化中设置的限制。

Dim mArray(100,100) As String 
Dim i As Integer = 0 
While cmdReader.Read() 
    mArray(i,0) = cmdReader.Item("id") 
    mArray(i,1) = cmdReader.Item("description") 
    i = i + 1 
End While 

但是，如果不知道数组限制，我建议按照astander's suggestion。

Answer 3

试试这个

Dim mArray(1,1) As String 
Dim i As Integer = 0 
While cmdReader.Read() 
    mArray(i,0) = cmdReader.Item("id") 
    mArray(i,1) = cmdReader.Item("description") 
    i = i + 1 
    ReDim Preserve mArray(i,1) 
End While 

Answer 4

纠正此错误。

Dim mArray(,) As String = ""