以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  list(of datarow)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98971)

--  作者:huhu
--  发布时间:2017/4/10 15:58:00
--  list(of datarow)
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
图片点击可在新窗口打开查看


--  作者:有点色
--  发布时间:2017/4/10 16:04:00
--  

返回的是一个数组

 

Dim drs1 As DataRow() = dt.Select("物料编码=\'" & dr("物料编码").ToString() & "\' and 库位类别 = \'" & dr("U8库位类别").ToString() & "\' ")
For Each mr As DataRow In drs1

[此贴子已经被作者于2017/4/10 16:04:18编辑过]