Dim strSIZEBM As String = drKS("尺码组名称")
Dim drs As List(of DataRow) = DataTables("尺码组子表").SQLSelect("尺码组名称 = '" & strSIZEBM & "'",100,"尺码序号")
Dim iSkuNum As Integer
iSkuNum = DataTables("吊牌信息").SQLcompute("max(SKU序号)","所属供应商 = '"& strGYS &"' AND 原款号='"& strYKH &"'")
For Each dr1 As DataRow In drs
Dim dr As DataRow
iSkuNum = iSkuNum + 1
dr = DataTables("吊牌信息").AddNew()
dr("所属供应商") = strGYS
dr("大类") = strDL
dr("品名") = strPM
dr("原款号") = strYKH
dr("吊牌颜色") = strDPYS
dr("商品特征") = strTZ
dr("尺码") = dr1("标准尺码")
msgbox(dr1("标准尺码"))
If dr1("标准尺码")="S" Then
msgbox("设置")
dr("是否抽样")="抽样"
End If
dr("吊牌条码") = strKS & dr1("吊牌尺码")
dr("颜色") = strYS
dr("商品编码") = drNj("年季条码序号") & strYKH & drNj("品牌缩写") & CStr(iSkuNum).padleft(3,"0")
dr("录入人") = user.name
dr("录入时间") = Date.now
dr("款序号") = kNum
dr("颜色序号") = ysNum
dr("尺码序号") = dr1("尺码序号")
dr("SKU序号") = iSkuNum
Next
信息都是有的。MSGBOX都能弹出信息，但就是判断不一样。
S不等S。
加好友 
发短信
Post By：2021/9/1 10:53:00 [只看该作者]
此主题相关图片如下：尺码.png