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