主题：求一段"合并"执行代码

此主题相关图片如下：未命名.jpg


我希望执行"合并"按钮后,表体变成以下内容:

1      A产品   100   SA001
2      B产品   100   SA001
3      C产品   200   SA001
4      C产品   200   SA001

 如下，自己修改一下

Dim ls As new List(Of String())
For Each ary As String() In DataTables("表A").GetValues("id|产品|单号", "id is not null")
    Dim sum As Double = DataTables("表A").Compute("sum(数量)", "id = '" & ary(0) & "' and 产品 = '" & ary(1) & "' and 单号 = '" & ary(2) & "'")
    Dim arow() As String = {ary(0), ary(1), sum, ary(2)}
    ls.Add(arow)
Next
DataTables("表A").DataRows.Clear
For Each l As String() In ls
    Dim ndr As DataRow = DataTables("表A").AddNew
    ndr("id") = l(0)
    ndr("产品") = l(1)
    ndr("数量") = l(2)
    ndr("单号") = l(3)
Next

没有看明白。是不是有个字母错了？