通过字典列表 VB.NET 将项目添加到 DataTable

Question

我正在尝试将字典中的值添加到 DataTable 中。字典的键值对是从表单中填充的。但 DataTable 仅从表单中获取最后插入的值。为什么会这样呢？

Public Class dictionary
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dictionary_ As New Dictionary(Of String, String)
        Dim value_ As String
        Dim key_ As String

        value_ = TextBox1.Text
        key_ = TextBox2.Text

        dictionary_.Add(value_, key_)

        Add_Data(dictionary_)
    End Sub

    Private Sub Add_Data(ByVal dic_ As Dictionary(Of String, String))
        Dim dt As New DataTable()
        dt.Columns.Add("KEY")
        dt.Columns.Add("VALUE")

        For Each item As KeyValuePair(Of String, String) In dic_
            dt.Rows.Add(item.Key, item.Value)
        Next

        dataGrid_.DataSource = dt

    End Sub
End Class

Answer 1

每次单击 Button 时，都会创建一个新的 Dictionary 对象，用一对数据填充它，创建一个新的 DataTable 对象，然后传输该对象一对数据，然后显示该数据。这意味着丢弃已经显示的数据。如果您希望数据持久存在，那么您需要停止创建新对象并一直丢弃旧对象。

您最好摆脱Dictionary，因为它毫无意义。您只需要DataTable。首先创建一个 DataTable 并将其绑定到网格。然后，您只需在读取数据时将每个数据对添加到 DataTable 中，它就会自动出现在网格中，因为这就是绑定点。