以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助，dr2= q.SelectString为啥无效，要乍改啊  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118159)
--  作者：UBSS
--  发布时间：2018/4/26 10:22:00
--  求助，dr2= q.SelectString为啥无效，要乍改啊
\'循环查找填充
Dim dr2 As DataRow  
Dim q As new QueryBuilder
q.C
q.TableName = "三方城配_待配载常规录入"
For Each pr As DataRow In DataTables("三方城配_订单查询").DataRows
q.SelectString = "Sele ct 订单_状态 FR OM {三方城配_待配载常规录入} WH ERE 产品 = \'" & pr("订单_系统ID码") &"\'"
dr2= q.SelectString
 If dr2 IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
     \'e.DataRow("订单_单号1") = e.Dat aRow("订单_重量T").Trim("\'") \'把重量换算成吨
     pr("订单_状态") = "已配载"

End If
Next
--  作者：有点甜
--  发布时间：2018/4/26 10:48:00
--  

不建议每次查询都执行一次后台查询。如果你要查询的次数较多，这样会很慢。

 

尽量把需要查找的表格加载出来，然后用find查找 http://www.foxtable.com/webhelp/scr/0396.htm