主题：[求助] 表中的记录进行拆分和合并

拆分，参考代码

Dim t As Table = Tables("表A")
Dim i As Integer = 2
If InputValue(i, "提示", "描述") Then
    Dim r = t.Current
    Dim n = r("数量") / i
    For j As Integer = 1 To i
        Dim nr = t.AddNew
        nr("产品") = r("产品")
        nr("数量") = n
        nr("单位") = r("单位")
    Next
    r.delete
End If

合并，参考代码

Dim t As Table = Tables("表A")
Dim cr = t.Rows(t.TopPosition)
For i As Integer = t.BottomPosition To t.TopPosition+1 Step -1
    cr("数量") += val(t.Rows(i)("数量"))
    t.Rows(i).delete
Next

只能用这种方法勾选

http://www.foxtable.com/webhelp/scr/1776.htm

如果你要复杂的，参考这里

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127220&skin=0

改成

Dim t As Table = Tables("表A")
Dim cr = t.current
Dim ls As new List(Of Integer)
For Each p As String In ps
    Dim i = p.split(",")(0)
    If ls.contains(i) = False Then
        ls.add(i)
        If cr("产品") = t.Rows(i)("产品") AndAlso cr("单位") = t.Rows(i)("单位")
            cr("数量") += val(t.Rows(i)("数量"))
        Else
            cr = t.Rows(i)
        End If
    End If
Next
ls.Sort
For i As Integer = ls.count-1 To 0 Step -1
t.Rows(ls(i)).Delete
Next

具体实例发上来测试。