For Each s As String() In DataTables("表B").GetValues("品名|产品")
Dim cnt As Integer = DataTables("表B").Compute("count(*)","品名='" & s(0) & "' And 产品='" & s(1) & "'")
DataTables("表B").ReplaceFor("数量",cnt,"品名='" & s(0) & "' And 产品='" & s(1) & "'")
Next
[此贴子已经被作者于2020/6/10 23:53:17编辑过]