Dim f As New Filler
f.SourceTable = dt '指定数据来源
f.SourceCols = "出勤天数,事假天数,病假天数" '指定数据来源列
f.DataTable = DataTables("工资单生成") '指定数据接收表
f.DataCols = "出勤天数,事假天数,病假天数" '指定数据接收列
f.ExcludeExistValue=True '逻辑型,设为True,排除接收表中已经存在的内容.
f.ExcludeNullValue=True '逻辑型,设为True,排除空白值.
f.Append=False '逻辑型,默认为True,在接收表中增加新行用于接收数据,
f.Filter= ??? 此处需要两张表的工号相同
f.Fill() '填充数据