vb.net - 将可变数量的行添加到数据表

Question

我有一个包含 360 行数据的表格。我需要将这些数据添加到数据表中。但如果有重复，它应该只更新包含该数据的行。重复的数量可以从0到180。在vb.net 3.5中可以这样做吗？如果是这样，怎么做？

Answer 1

您可以使用DataTable.LoadDataRow方法。
这需要您定义表的主键。
该方法使用主键来识别重复行

Dim dt = new DataTable("test")
Dim col = dt.Columns.Add("ID", Type.GetType("System.Int32"))
col.AllowDbNull = false
col.Unique = true
dt.Columns.Add("Name", Type.GetType("System.String"))
..... ' and so on '

' now the primary key
Dim columns(1) As DataColumn
columns(0) = dt.Columns("ID")
dt.PrimaryKey = columns

' And then the LoadDataRow
Dim newRow As Object() = New Object(1) {}
newRow(0) = Convert.ToInt32(TextBox1.Text)
newRow(1) = TextBox2.Text
dt.LoadDataRow(newRow, True)
....

如果您的一个或多个 textbox1.Text 包含相同的 id，则先前的行将使用新值更新，否则将向数据表添加新行

编辑
看到您对 Quantity 列上的求和操作的评论，那么您应该更改方法（当然添加第三列与所需的数字类型）

' Search if the ID is already present '
Dim rows = dt.Select("ID=" & TextBox1.Text)
if rows.Length == 0 Then
   ' No ID found, add a newrow to the datatable'
   Dim newRow = dt.NewRow()
   newRow(0) = Convert.ToInt32(TextBox1.Text)
   newRow(1) = TextBox2.Text
   newRow(2) = Convert.ToInt32(TextBox3.Text)
   dt.Rows.Add(newRow)
Else
   ' ID found, the Rows array should be of just one row and the second column incremented of the quantity '
   rows(0)(2) +=  Convert.ToInt32(TextBox3.Text)
End If

编辑

Dim dt As New DataTable 
'adding columns to the datatble'
dt.Columns.Add("Operation") 
dt.Columns.Add("folder") 
' This is a numeric column, so tell it to the framework
dt.Columns.Add("quantity", Type.GetType("System.Int32"))

'adding datarows 
' The search is on a string column, so enclose in single quotes 
' I assume that a 'folder' names doesn't contains a single quote
Dim rows = dt.Select("folder='" & L1F1.Text + "'") 
If rows.Length = 0 Then 
   Dim newRow = dt.NewRow() 
   newRow(0) = L1Ob1.Text 
   newRow(1) = L1F1.Text 
   newRow(2) = Convert.ToInt32(L1Qty1.Text) 
   dt.Rows.Add(newRow) 
Else 
   rows(0)(2) += Convert.ToInt32(L1Qty1.Text) 
End If