主题：按条件填充数据

DataTables("试算平衡表1").datarows.clear

DataTables("试算平衡表2").datarows.clear

Dim f As New Filler

f.SourceTable = DataTables("科目期初余额") '指定数据来源

f.SourceCols = "科目名称,科目编码,余额方向,金额" '指定数据来源列

f.DataTable = DataTables("试算平衡表1") '指定数据接收表

f.DataCols = "科目名称,科目编码,余额方向,金额" '指定数据接收列

f.ExcludeExistValue = True

f.Filter = "科目性质='借方科目'"

f.Fill() '填充数据

Dim f2 As new Filler

f2.SourceTable = DataTables("科目期初余额") '指定数据来源

f2.SourceCols = "科目名称,科目编码,余额方向,金额" '指定数据来源列

f2.DataTable = DataTables("试算平衡表2") '指定数据接收表

f2.DataCols = "科目名称,科目编码,余额方向,金额" '指定数据接收列

f2.ExcludeExistValue = True

f2.Filter = "科目性质='贷方科目'"

f2.Fill() '填充数据