以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56348)
--  作者：lshshlxsh
--  发布时间：2014/9/3 15:02:00
--  数据填充

Dim f As New Filler
f.SourceTable = DataTables("表A") \'指定数据来源
f.Filter ="[_Locked] = false"
f.SourceCols = "第一列,第二列,第三列" \'指定数据来源列
f.ExcludeExistValue =True         \'\'\'不重复
f.DataTable = DataTables("表B") \'指定数据接收表
f.DataCols = "第一列,第二列,第三列" \'指定数据接收列
f.Fill() \'填充数据

 

请问一下我只想填充A表勾选的行到B表，f.filter 条件该怎么写？
--  作者：Bin
--  发布时间：2014/9/3 15:04:00
--  
增加一个逻辑列,作为复选框来选择
f.Filter ="[_Locked] = false  and 逻辑列=true"
--  作者：lshshlxsh
--  发布时间：2014/9/3 15:06:00
--  

Bin,谢谢你的回答，本来不是有一个复选框的吗  ？如果直接使用该怎么用？

[此贴子已经被作者于2014-9-3 15:08:24编辑过]
--  作者：有点甜
--  发布时间：2014/9/3 15:13:00
--  
Dim filter As String = ""
For Each r As Row In Tables("表A").GetCheckedRows
    filter &=  r("_Identify") & ","
Next

f.Filter ="_Identify in (" & filter.Trim(",") & ")"
--  作者：lshshlxsh
--  发布时间：2014/9/3 15:20:00
--  

谢谢！