Dim drs1 As List(Of DataRow) = dt.s e l e c t("物料编码='" & dr("物料编码").ToString() & "' and 库位类别 = '" & dr("U8库位类别").ToString() & "' ")
For Each mr As DataRow In drs1
Dim sql As String = "U pdate [BDU8差值可用数量表] Set BD可用数量='" & dr("数量差量").ToString() & "' 差值='" & dr("数量差量").ToString() & "' where 物料编码='" & dr("物料编码").ToString() & "' and 库位类别 = '" & dr("U8库位类别").ToString() & "'and '" & dr("数量差量") ""
Next
红色代码报下面的错误。
此主题相关图片如下:dt.png