Dim f加载 As New Filler
f加载.SourceTable = DataTables("表名") '指定数据来源
f加载.SourceCols = "列名1,列名2" '指定数据来源列(可以指定多列)
f加载.DataTable = DataTables("表名") '指定数据接收表
f加载.DataCols = "列名1,列名2" '指定数据接收列(可以指定多列)
f加载.ExcludeExistValue = True '逻辑型,设为True,排除接收表中已经存在的内容。
f加载.ExcludeNullValue = True '逻辑型,设为True,排除空白值。
f加载.Filter() '填充条件,请参考表达式的运算符和函数 和 条件表达式。
f加载.Distinct = True '逻辑型,是否排除重复内容,默认为True;如果设为False,将不会排除重复内容,也不会排除已有内容和空白值。
f加载.Append = True '辑型,默认为True,在接收表中增加新行用于接收数据,设为False,则在原有的行中填充,如果不够再增加新行。
f加载..Fill() '填充数据
'提示:数据来源列和数据接收列是可以省略的,或者只设置其中一个,Filler会自动查找同名列进行匹配填充