Dim tbl As Table = Tables("销售订单_table3")
Tables("销售订单_table2").Filter = "[款号ID] = '" & tbl.current("款号ID") & "'"
' 对比更新
Dim dt2 As DataTable = DataTables("横向销售明细尺码")
Dim dt1 As DataTable = Tables("销售订单_table2").DataTable
Dim t As Table = Tables("销售订单_table2")
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,9095,100"
For Each drr As DataRow In dt1.DataRows
Dim fdr As DataRow = dt2.Find("款号ID = '" & drr("款号ID") & "' ")
If fdr Is Nothing Then
fdr = dt2.AddNew
fdr("订单号")=drr("订单号")
fdr("款号")=drr("款号")
fdr("颜色")=drr("颜色")
fdr("杯型")=drr("杯型")
fdr("货期")=drr("货期")
fdr("款号ID")=drr("款号ID")
fdr("物供号")=drr("物供号")
End If
For Each s As String In str1.Split(",")
If t.Cols.Contains("尺码_" & s) Then
fdr("衣裤尺码明细_" & s)=val(drr("尺码_" & s))
End If
Next
For Each s As String In str2.Split(",")
If t.Cols.Contains("尺码_" & s) Then
fdr("文胸尺码明细_" & s)=val(drr("尺码_" & s))
End If
Next
Next
Syscmd.Table.Lock()
dt2.save
Tables("销售订单_table2").Filter = "[款号ID] = '" & tbl.current("款号ID") & "'"
加好友 
发短信
Post By：2018/9/30 11:37:00 [只看该作者]
此主题相关图片如下：111.png