主题：回款额自动计算填充到订单表

如题，以客户编码为联系点，订单表中每一行都有一个订单额，回款表中每一行有一个回款额，回款额变化后，自动填充到订单表中，回款额较大则填充较多的订单表中的行，直到全部回款额填完为止。

做个按钮，一次性执行

 

Dim dt1 As DataTable = DataTables("订单表")
Dim dt2 As DataTable = DataTables("回款表")
For Each bm As String In dt2.GetValues("客户编码")
    Dim drs As List(Of DataRow) = dt1.Select("客户编码 = '" & bm & "'")
    Dim sum As Double = dt2.Compute("sum(回款额)", "客户编码 = '" & bm & "'")
    For Each cdr As DataRow In drs
        If sum > cdr("销售额") Then
            cdr("回款额") = cdr("销售额")
            sum -= cdr("销售额")
        Else
            cdr("回款额") = sum
            Exit For
        End If
    Next
Next

狐表原有主菜单我觉得很好用，怎样在主菜单上增加按钮，而不是新增菜单来回切换。那样比较麻烦。

 引用系统菜单模板

 

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

 

好用，多谢！

在窗口中做了按钮，好用。如果操作员误操作，输入错误回款额后执行按钮，发现错误，想改回款额或者直接删除这一行，导入到订单表中的回款要怎么修改回来？

参考：http://www.foxtable.com/webhelp/topics/1538.htm

如果是过一段时间以后，已经对该行进行了其他操作后发现了该失误，应该怎么办呢？

版主，有没有帮助文件或者之前的帖子提示？