'第一步将记录拆成一条一条的
Dim Cols1() As String = {"长度","宽度","厚度","编号","单个重量","编号"}
Dim Cols2() As String = {"长度","宽度","厚度","编号","单个重量","编号"}
For Each dr1 As DataRow In DataTables("产品数据").Select("[数量] > 0")
For j As Integer = 1 To dr1("数量")
Dim dr2 As DataRow = DataTables("产品数据拆分").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
dr2("数量")=1
Next
Next
Next
'一条条的累加重量不超过500
Dim Sumzl As Integer
Dim k As Integer=1
Dim Cols11() As String = {"长度","宽度","厚度","编号","单个重量","编号","数量"}
Dim Cols22() As String = {"长度","宽度","厚度","编号","单个重量","编号","数量"}
For Each dr11 As DataRow In DataTables("产品数据拆分").Select("[数量] > 0")
sumzl= sumzl + dr11("单个重量")
If sumzl>500 Then
sumzl=0
k=k+1
End If
Dim dr22 As DataRow = DataTables("分箱明细").AddNew()
For i As Integer = 0 To Cols11.Length -1
dr22(Cols22(i)) = dr11(Cols11(i))
dr22("箱号")=k
Next
Next
'建立分组查看代码进行复制生成分箱结果
Dim g As New GroupTableBuilder("分箱结果", DataTables("分箱明细"))
g.Groups.AddDef("长度")
g.Groups.AddDef("宽度")
g.Groups.AddDef("厚度")
g.Groups.AddDef("单个重量")
g.Groups.AddDef("编号")
g.Groups.AddDef("箱号")
g.Totals.AddDef("数量")
g.Build()
MainTable = Tables("分箱结果")
加好友 
发短信
Post By：2017/11/23 16:01:00 [显示全部帖子]
此主题相关图片如下：窗口图片.png
