您可以创建一个字典列表,键和值都是字符串.然后,键可以代表您的键(示例中的 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 { _{描述",cmdReader.Item(描述")} _})然后你可以使用 foreachFor Each value As Dictionary(Of String, String) In valuesDim id As String = value("id")Dim description As String = value("description")下一个或者一个 forFor i As Integer = 0 To values.Count - 1Dim value As Dictionary(Of String, String) = values(i)Dim id As String = value("id")Dim description As String = value("description")下一个I'm trying to build up a multidimensional array which will hold two bits of info for each record in a database e.g. id, description.This is what I am currently doing.Dim mArray(,) As StringDim i As Integer = 0While cmdReader.Read() mArray(i,0) = cmdReader.Item("id") mArray(i,1) = cmdReader.Item("description") i = i + 1End WhileThe problem I have here is that it doesn't like the i in mArray(i,0). Anyone have any ideas about this? This is the error that is given Object reference not set to an instance of an object.Thanks for any and all help.Nalum 解决方案 Why not rather make use of List Class and Dictionary ClassYou can rather then create a List of Dictionaries, with the key and value both strings. The key can then represent your key (id and description in your example, and the value can be what ever was stored).Something like Dim values As New List(Of Dictionary(Of String, String))()and then in the while loop something likevalues.Add(New Dictionary(Of String, String)() From { _ {"id", cmdReader.Item("id")} _})values.Add(New Dictionary(Of String, String)() From { _ {"description", cmdReader.Item("description")} _})You could then use foreachFor Each value As Dictionary(Of String, String) In values Dim id As String = value("id") Dim description As String = value("description")NextOr a forFor 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 这篇关于在 vb.net 中构建多维数组的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持! 上岸,阿里云! 08-19 12:56