此主题相关图片如下:111.png
如何按上图依行记录计算或取开始扎号和结束扎号
Dim tbl1 As Table = Tables("分派工序_table1")
Dim tbl4 As Table = Tables("分派工序_table4")
Dim tbl3 As Table = Tables("分派工序_table3")
Dim tbl6 As Table = Tables("分派工序_table6")
Dim bz As WinForm.ComboBox = Forms("分派工序").Controls("ComboBox1")
Dim js As WinForm.TextBox = Forms("分派工序").Controls("TextBox8")
If js.text <> Nothing Then
If tbl1.current IsNot Nothing Then
Dim r = tbl3.addnew()
'r("制单明细行ID") = tbl1.current("_Identify")
r("物供号") = tbl1.current("物供号")
r("系列") = tbl1.current("系列")
r("颜色") = tbl1.current("颜色")
r("货品名") = tbl1.current("货品名")
r("客款号") = tbl1.current("客款号")
r("款号") = tbl1.current("款号")
r("制单号") = tbl1.current("制单号")
r("订单号") = tbl1.current("订单号")
r("每箱件数") = js.text
r("箱数") = tbl6.Compute("Sum(数量)", "订单号 = '" & r("订单号") & "' and 颜色 = '" & r("颜色") & "' and 尺码 = '" & r("尺码") & "'") \ r("每箱件数")
r("尾箱数量") = tbl6.Compute("Sum(数量)", "订单号 = '" & r("订单号") & "' and 颜色 = '" & r("颜色") & "' and 尺码 = '" & r("尺码") & "'") Mod r("每箱件数")
tbl3.Position = tbl3.rows.count-1
Tables("分箱").save()
Else
messagebox.show("请选择订单!")
End If
Else
messagebox.show("件数必填!")
End If
[此贴子已经被作者于2019/1/11 9:51:19编辑过]