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

老师好， 窗体中的两个按钮能帮忙实现吗？

拆分，只要选中的记录进行拆分，要提示拆分几笔 ？如办输入2，就分成二笔，输入3，就3笔，数量按输入的数量分配，其它不变

合并，只要光标选中的记录两条记录进行合并，数量加总，其它不变。

以上，请帮忙一下，附实例。谢谢了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:diff.table

拆分，参考代码

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

老师， 以下合并的，是不是可以帮忙加个条件，产品，单位相同的记录才可以进行合并，否则提不能合并，谢谢了！

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

老师，还有个问题表中的记录怎么一定要连续选择的， 不能隔开选行吗？ 能不能帮忙加个如果没有选中，提醒选一下，如果不能合并，也提醒一下。不好意思，又麻烦了。

谢谢了。

能不能帮忙加个如果没有选中，提醒选一下，如果不能合并，也提醒一下

老师，那个隔开不合适，用光标隔开点选吗？