DataTables("凭证录入表").dataRows.ClearDim f As New Filler'f.Distinct=Falsef.SourceTable = DataTables("凭证记录表") '指定数据来源f.SourceCols = "摘要,科目名称,借方金额,贷方金额,科目ID,客户ID,供应商ID" '指定数据来源列f.DataTable = DataTables("凭证录入表") '指定数据接收表f.DataCols = "摘要,科目,借方金额,贷方金额,科目ID,客户ID,供应商ID" '指定数据接收列f.ExcludeExistValue = Truef.Filter= "工作日期 = '" & v3 & "' and 凭证号 = " & if.Fill() '填充数据
如果还有问题,做个例子发上来测试。