If Forms("生产制造单").Opened Then
Dim tb As Table = Tables("选择销售明细尺码_Table1")
Dim tbl1 As Table = Tables("生产制造单_Table1")
Dim pd As WinForm.ComboBox = Forms("生产制造单").Controls("ComboBox7")
Dim dt2 As DataTable = Tables("生产制造单_Table2").DataTable
For i As Integer=tb.BottomPosition To tb.TopPosition Step -1
Dim str1 As String = "XS,S,M,L,XL,2XL,3XL,4XL,5XL,6XL,F,XF"
Dim str2 As String = "65,70,75,80,85,90,95,100"
Dim fdr As DataRow = dt2.Find("销售明细行ID = '" & tb.Current("销售明细行ID") & "' ")
If fdr Is Nothing Then
fdr = dt2.AddNew
fdr("生产单号") = tbl1.Current("生产单号")
fdr("订单号")=tb.Current("订单号")
fdr("款号")=tb.Current("款号")
fdr("颜色")=tb.Current("颜色")
fdr("杯型")=tb.Current("杯型")
fdr("要求货期")=tb.Current("要求货期")
fdr("款号ID")=tb.Current("款号ID")
fdr("物供号")=tb.Current("物供号")
fdr("销售明细行ID")=tb.Current("销售明细行ID")
tb.Current("已安排制单")=True
For Each s As String In str1.Split(",")
If tb.Cols.Contains("衣裤尺码明细_" & s) Then
fdr("衣裤尺码明细_" & s)=val(tb.Current("衣裤尺码明细_" & s))
End If
Next
For Each s As String In str2.Split(",")
If tb.Cols.Contains("文胸尺码明细_" & s) Then
fdr("文胸尺码明细_" & s)=val(tb.Current("文胸尺码明细_" & s))
End If
Next
End If
Next
Syscmd.Table.Lock()
dt2.save
End If
Forms("选择销售明细尺码").Close()
加好友 
发短信
Post By：2018/10/5 14:08:00 [只看该作者]
