Dim 启用状态 As Boolean = True
If 启用状态 = True Then
DataTables("存货汇总表").datarows.clear
Dim f As New Filler
f.SourceTable = DataTables("存货明细表") '指定数据来源
f.SourceCols = "存货编码" '指定数据来源列
f.DataTable = DataTables("存货汇总表") '指定数据接收表
f.DataCols = "存货编码" '指定数据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据
End If