主题：[求助]关于数据填充器的填充条件Filter

Dim f As New Filler
Dim qs As Long=e.Form.Controls("TextBox1").value
f.SourceTable = DataTables("明细清单")                                       '指定数据来源
f.SourceCols = "序号,期数,日期,类型,收款单位,金额,用途,备注"             '指定数据来源列
f.DataTable = DataTables("当期清单") '指定数据接收表
f.DataCols = "序号,期数,日期,类型,收款单位,金额,用途,备注"                '指定数据接收列
f.filter="[期数]=qs"                                                                  ’这句有问题，如何改？
f.Fill() '填充数据

条件可以用变量吗？怎么用？

任何条件都可以用变量，建议看看：

 

http://help.foxtable.com/topics/1284.htm

 

如果表A和表B的结构不同，或者只需填充部分列，就需要定义数据来源列和数据接收列，例如： Dim Cols1() As String = {"来源列一","来源列二","来源列三"} Dim Cols2() As String = {"接收列一","接收列二","接收列三"} For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100") Dim dr2 As DataRow = DataTables("表B").AddNew() For i As Integer = 0 To Cols1.Length -1 dr2(Cols2(i)) = dr1(Cols1(i)) Next Next