以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  订单排程求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141560)
--  作者：有点酸
--  发布时间：2019/10/4 16:42:00
--  
真好，想别人帮自己全部做好，去连问题描述都懒得多说两句。
--  作者：有点蓝
--  发布时间：2019/10/6 15:11:00
--  
我不懂业务，看意思大概这样吧

dim 产值目标 as integer = 10000
dim sum as integer = 0
for each r as row in tables().rows
if sum + r("金额") < 产值目标 then
dim nr as row = tables("排期表").addnew
nr(“金额”) = r("金额")
sum += r("金额") 
end if
next
--  作者：有点蓝
--  发布时间：2019/10/8 10:10:00
--  
Dim 产值目标 As Integer = 21000
Dim sum As Integer = 0
Dim idx As Integer = 1
Dim dh As String = Tables("订单").rows(0)("订单号")
For Each r As Row In Tables("订单").rows
    If dh = r("订单号")
        If sum + r("金额") <= 产值目标 Then
            r("工单号") = idx
            sum += r("金额")
        Else
            idx += 1
            r("工单号") = idx
            sum = r("金额")
        End If
    Else
        dh = r("订单号")
        idx = 1
        r("工单号") = idx
        sum = r("金额")
    End If
Next