- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 回款额自动计算填充到订单表 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=95456)
-- 发布时间：2017/1/20 10:17:00
-- 回款额自动计算填充到订单表
如题，以客户编码为联系点，订单表中每一行都有一个订单额，回款表中每一行有一个回款额，回款额变化后，自动填充到订单表中，回款额较大则填充较多的订单表中的行，直到全部回款额填完为止。
详见例子。请问能否实现，如何编程？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:回款自动填充订单.rar |
-- 发布时间：2017/1/20 10:32:00
--
做个按钮，一次性执行
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
-- 发布时间：2017/1/20 10:58:00
--
狐表原有主菜单我觉得很好用，怎样在主菜单上增加按钮，而不是新增菜单来回切换。那样比较麻烦。
-- 发布时间：2017/1/20 10:59:00
--
引用系统菜单模板
http://www.foxtable.com/webhelp/scr/1079.htm
-- 发布时间：2017/1/20 15:49:00
--
好用，多谢！
-- 发布时间：2019/8/22 10:27:00
--
在窗口中做了按钮，好用。如果操作员误操作，输入错误回款额后执行按钮，发现错误，想改回款额或者直接删除这一行，导入到订单表中的回款要怎么修改回来？
-- 发布时间：2019/8/22 10:37:00
--
参考：http://www.foxtable.com/webhelp/topics/1538.htm
-- 发布时间：2019/8/22 11:07:00
--
如果是过一段时间以后，已经对该行进行了其他操作后发现了该失误，应该怎么办呢？
-- 发布时间：2019/8/22 11:21:00
--
专门建一个表，保存所有对数据做过的更改，比如什么时间、哪个表哪一行哪一列，从什么数据改为什么数据。
-- 发布时间：2019/8/22 12:19:00
--
版主，有没有帮助文件或者之前的帖子提示？