Dim drsc As List(Of DataRow)
msgbox("Product_id = '" & cpid & "' and laminati") ‘显示什么？放到数据库里查询是否有值
drsc = DataTables("Product_details").SQLSelect("Product_id = '" & cpid & "' and laminati","level_number")
msgbox(drsc.coount) ‘有没有结果’
Dim cp As String
Dim zhid As String
cp =""
zhid =""
For Each drc As DataRow In drsc
If drc("Material_type") = "Glass" Then
Dim rc As Row = Tables("Glass_single_produce").AddNew()
rc("Product_details_id") = drc("id")'长度取表B的长
rc("Product_id") = drc("Product_id")'长度取表B的长
rc("Order_number") = drc("Order_number")'长度取表B的长
rc("Entry_number") = drc("Entry_number")'长度取表B的长
rc("level_number") = drc("level_number")'长度取表B的长
rc("Processing_namezw") = jglj
rc("rack") = Tables("rack").Current("rack")
rc("single_name") = drc("Material_name")'长度取表B的长
rc("jiajiaobiaozhi") = drc("jiajiaobiaozhi")'长度取表B的长
rc("user") = _UserName
rc("date_of_entry") = Date.Now
'rc("combination_name") = drc()'长度取表B的长
rc("Quantity") = 1
rc("lamination_group") = drc("lamination_group")'长度取表B的长
rc("combination_ID") = zhdm
End If
cp + = drc("Material_name") & "+"
zhid + =drc("id") & "_"
Next
msgbox("cp.Length=" & cp.Length) ‘长度？
msgbox("zhid.Length=" & zhid.Length) ‘长度？
jjmc =(cp.SubString(0,cp.Length - 1))
zhid= (zhid.SubString(0,zhid.Length - 1))
……
加好友 
发短信
Post By：2020/2/22 10:19:00 [只看该作者]
