求助，dr2= q.SelectString为啥无效，要乍改啊 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，dr2= q.SelectString为啥无效，要乍改啊

共有1911人关注过本帖树形打印复制链接主题：求助，dr2= q.SelectString为啥无效，要乍改啊

UBSS

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：73 积分：796 威望：0 精华：0 注册：2016/3/10 11:37:00

求助，dr2= q.SelectString为啥无效，要乍改啊 发帖心情

Post By：2018/4/26 10:22:00 [只看该作者]

'循环查找填充

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

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/26 10:48:00 [只看该作者]

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

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

主题：求助，dr2= q.SelectString为啥无效，要乍改啊