将数据添加到数据表

Question

这段代码将插入的ID记录在arraylist中，当按下按钮时，它应该为此数组创建循环，并从该数组中获取每个ID的数据，然后将其放入Datatable中，并在循环到datatable时添加新数据，最后显示它在datagridview中。 当我插入一条记录时结果中的问题可以很好地解决，但是当我插入多条记录时，datagridview仅显示最后一条，我做错了什么？

在主要形式

Public Inserted_record_hold_dt As New DataTable
Public Inserted_record_dt As New DataTable
Public Sub Addcolumnstodatagrid()
    Inserted_record_dt.Columns.Add("ID")
    Inserted_record_dt.Columns(0).AutoIncrement = True

    Inserted_record_dt.Columns.Add("drawingname")
    Inserted_record_dt.Columns.Add("serial")

End Sub

并在main_Load中调用它

Addcolumnstodatagrid()

当单击以循环显示已具有最新ID的阵列列表时，在显示按钮中显示

Private Sub show_btn_Click(sender As System.Object, e As System.EventArgs) Handles show_btn.Click
    Dim InsertedID As Integer
    Inserted_record_dt.Clear()
    Dim R As DataRow = Inserted_record_dt.NewRow

    'Loop For each ID in the array "Inserted_List_Array"
    For Each InsertedID In mainadd.Inserted_List_Array
        'MsgBox(InsertedID.ToString)
        Dim cmd As New SqlCommand("select drawingname , serial from main where drawingid = '" & InsertedID & "'", DBConnection)
        DBConnection.Open()
        Inserted_record_hold_dt.Load(cmd.ExecuteReader)
        Try

            R("drawingname") = Inserted_record_hold_dt.Rows(0).Item(0)
            R("serial") = Inserted_record_hold_dt.Rows(0).Item(1)
            Inserted_record_dt.Rows.Add(R)

        Catch
        End Try
        'MsgBox("added")
        DBConnection.Close()
        cmd = Nothing
        Inserted_record_hold_dt.Clear()
    Next
    sendmail.Show()
    sendmail.Mail_DGView.DataSource = Inserted_record_dt
End Sub

请告诉我代码中的问题是什么。

Answer 1

您的错误是在循环外仅一次声明R变量。 这样，您可以连续替换DataRow的同一实例上的值，并始终插入同一实例。

只需将声明移入循环内

For Each InsertedID In mainadd.Inserted_List_Array
    ......
    Try
        Dim R As DataRow = Inserted_record_dt.NewRow
        R("drawingname") = Inserted_record_hold_dt.Rows(0).Item(0)
        R("serial") = Inserted_record_hold_dt.Rows(0).Item(1)
        Inserted_record_dt.Rows.Add(R)

    Catch
    ....
Next

另一个重要的事情是删除空的Try / Catch，因为您只是杀死异常（没有消息，没有日志），因此您将永远不知道此导入中是否有错误。 最后，您将交付可能会给最终用户带来不正确结果的产品。