主题：数据填充

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,谢谢你的回答，本来不是有一个复选框的吗  ？如果直接使用该怎么用？

Dim filter As String = ""
For Each r As Row In Tables("表A").GetCheckedRows
    filter &=  r("_Identify") & ","
Next

f.Filter ="_Identify in (" & filter.Trim(",") & ")"

谢谢！