标题：代码（3楼已作示范文件）C版请进
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目26.table |
求1代码：
当零部件明细表交货数量改变时，订单序号来源于订单表的订单序号第一行，（订单表订单机型中6列打钩的为1）GE296_6梳机械_台数为订单表订单机型_GE296_6梳机械列的合计（合计条件为订单序号小于零部件明细表当前行的订单序号），GE296_7梳机械_台数为订单表订单机型_GE296_6梳机械列的合计（合计条件为订单序号小于零部件明细表当前行的订单序号），以此6个台数列合计。如果零部件明细表中6种机型的同机型台数*台用量累加-交货数量小于0时，零部件订单序号列减1，否则加1，如此循环，请高手指点，谢谢
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目26.table |
总算做出一点能说明要求的东西了。详见附件
现在还剩下一个问题还没解决：
"零部件明细"表的"订单序号"列，能自动计算出如示范文件一样的结果。要求是：来源于"订单"表中的"订单序号"列，满足当"零部件明细"表中"剩余数量"大于0时，"订单序号"就加1，一直到小于0时，再减1就是所需数据。
（严格来讲应是"零部件明细"表中"剩余数量"大于各机型的台用量最大值时，"订单序号"就加1，一直到小于台用量最大值）
请C版帮忙看看用什么招解决，谢谢
呵呵，我什么也没看出来，从数据中只看出订单序号是各台数的总和。
觉得好像就是这样的结果: 不知道对不?
Dim gbr As Row = CurrentTable.current '零部件明细表
Dim ger As DataRow
ger = DataTables("订单").Find("机号_GE296 = " & gbr("可装机号_GE296"))
Dim bkr As DataRow
bkr = DataTables("订单").Find("机号_BKS = " & gbr("可装机号_BKS"))
If gbr.isnull("可装机号_GE296") = False And gbr.isnull("可装机号_BKS") = False
If ger("订单序号") > bkr("订单序号")
gbr("订单序号") = ger("订单序号")
Else
gbr("订单序号") = bkr("订单序号")
End If
Elseif gbr.isnull("可装机号_GE296") And gbr.isnull("可装机号_BKS") = False
gbr("订单序号") = bkr("订单序号")
Elseif gbr.isnull("可装机号_GE296") = False And gbr.isnull("可装机号_BKS")
gbr("订单序号") = ger("订单序号")
Elseif gbr.isnull("可装机号_GE296") And gbr.isnull("可装机号_BKS")
gbr("订单序号") = Nothing '刚补上的
End If