通过选择销售明细尺码数量选到生产制单后，点审核按钮(如下代码)后将选到生产制单的明细尺码数量反写到销售明细尺码表的排产数量，运行后下面的代码结果不对，请老师指正
此主题相关图片如下：111.png
Dim tb 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,90,95,100"
For Each dr2 As DataRow In DataTables("生产制单明细").Select("[生产单号] = '" & Tables("生产制造单_table1").current("生产单号") & "'")
For Each dr As DataRow In DataTables("销售明细尺码").Select(" [_Identify] = '" & dr2("销售明细行ID") & "'")
dr2("审核") = True
dr2.locked = True
Dim drs = DataTables("生产制单明细").Select("[生产单号] = '" & Tables("生产制造单_table1").current("生产单号") & "' and [审核] = 'true'")
For Each cdr As DataRow In drs
For Each s As String In str1.Split(",")
If tb.Cols.Contains("衣裤尺码明细_" & s) Then
dr("衣裤尺码明细_排产" & s)=val(cdr("衣裤尺码明细_" & s))
End If
Next
For Each s As String In str2.Split(",")
If tb.Cols.Contains("文胸尺码明细_" & s) Then
dr("文胸尺码明细_排产" & s)=val(cdr("文胸尺码明细_" & s))
End If
Next
Next
加好友 
发短信
Post By：2018/11/26 14:21:00 [显示全部帖子]
