列表ArrayList 3要存储的维度3值（错误给定的键不存在于字典中。）

Question

试图制作一个列表，甚至是一个ArrayList，它有3列，我可以动态地添加和检索VB.Net中的元素。

，我可以添加这样的元素：。mylist.add（之一）（二）（三级）

不知道是否有可能？

请你能帮助

下面是我的代码

我得到的错误说（给定的关键是不存在的字典。）

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


     values.Add(New Dictionary(Of String, String)() From { _ 
     {"product", TextBox1.Text.Trim} _ 
     }) 


     values.Add(New Dictionary(Of String, String)() From { _ 
     {"description", TextBox2.Text.Trim} _ 
     }) 


     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 

     For Each value As Dictionary(Of String, String) In values 

      Dim product As String = value("product") 
      Dim description As String = value("description") 

      MsgBox(product & " - " & description) 



     Next 

    End Sub 

Answer 1

假设数据元素都链接到一个项目，这听起来像你需要一个结构列表。

Public Class Form1 

    Structure Product 
     Dim Id As Integer 
     Dim Name As String 
     Dim Description As String 
    End Structure 

    Dim Products As New List(Of Product) 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     Dim newproduct As New Product With {.Id = 54835, .Name = "My Greatest Product", .Description = "Blue,Large and Shiny!"} 
     Products.Add(newproduct) 
     MessageBox.Show(GetProduct(54385).Name & " - " & GetProduct(54385).Description) 
    End Sub 

    Private Function GetProduct(searchId As Integer) As Product 
     Return Products.Find(Function(x) x.Id = searchId) 
    End Function 

    Private Sub DeleteProduct(searchId As Integer) 
     Dim productToDelete As Product = GetProduct(searchId) 
     If Not IsNothing(productToDelete.Name) Then 
      Products.Remove(productToDelete) 
     Else 
      MessageBox.Show("Product: " & searchId & " does not exist") 
     End If 
    End Sub 

End Class