专家坐堂-[求助] 帮忙看看这代码是哪错了,Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 帮忙看看这代码是哪错了,  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75300)

--  作者：农村人
--  发布时间：2015/10/4 11:17:00
--  [求助] 帮忙看看这代码是哪错了,

Dim fl As String = "[打包] = \'" & 1 & "\'"
DataTables("质检").LoadFilter = fl
DataTables("质检").Load

Dim ids As String
For Each dr As DataRow In DataTables("质检").DataRows
ids = ids & "," & dr("流水编号")
Next
ids= ids.Trim(",")
DataTables("质检清单").LoadFilter = "流水编号 In (" & ids & ")"
DataTables("质检清单").Load()

--  作者：大红袍
--  发布时间：2015/10/4 12:42:00
--

Dim fl As String = "[打包] = \'" & 1 & "\'"

DataTables("质检").LoadFilter = fl

DataTables("质检").Load

Dim ids As String = "\'\'"

For Each dr As DataRow In DataTables("质检").DataRows

ids = ids & ",\'" & dr("流水编号") & "\'"

Next

ids= ids.Trim(",")

DataTables("质检清单").LoadFilter = "流水编号 In (" & ids & ")"

DataTables("质检清单").Load()