vb.net - 附加数据表

Question

请在下面查看我的编码 -

    Dim dtProductName As New DataTable()
    dtProductName.Columns.Add(VP_Product)

    'add new row
    Dim dr As DataRow
    dr = dtProductName.NewRow()
    dr.Item(0) = "All"
    dtProductName.Rows.Add(dr)

    dr = dtProductName.NewRow()
    dr.Item(0) = "None"
    dtProductName.Rows.Add(dr)

    Dim dt As New DataTable()

    dt = cReport.getAllProduct

    For Each drp As DataRow In dt.Rows
        dr = dtProductName.NewRow()
        dr.Item(0) = drp.Item(0)
        dtProductName.Rows.Add(dr)
    Next

    cboProductLine.DataSource = dtProductName
    cboProductLine.ValueMember = VP_Product
    cboProductLine.DisplayMember = VP_Product

“全部”和“无”是附加数据。我想将这两个添加到另一个从数据库返回的数据表中。有没有比我的编码更好的方法？（无需循环添加行）谢谢。

Answer 1

您不需要创建 2 个数据表。只需cReport.getAllProduct使用

Public Sub InsertAt(row as System.Data.Datarow, pos as Integer)

添加额外的“All”和“None”值的方法。

    Dim dt As New DataTable()

    dt = cReport.getAllProduct

    Dim dr As DataRow

    dr = dt.NewRow()
    dr.Item(0) = "All"
    dt.Rows.InsertAt(dr, 0)

    dr = dt.NewRow()
    dr.Item(0) = "None"
    dt.Rows.InsertAt(dr, 1)

    cboProductLine.DataSource = dt
    'make sure your dt datatable contains the VP_Product column
    cboProductLine.ValueMember = VP_Product
    cboProductLine.DisplayMember = VP_Product