以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  导入的数据行数变成了二倍，怎回事？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113614)
--  作者：jsqylj
--  发布时间：2018/1/19 14:26:00
--  导入的数据行数变成了二倍，怎回事？
请教老师，我用下面的代码，导入，导入表中的一行到被导入表中形成二行，二行变成四行，请教怎改？
DataTables("凭证录入表").dataRows.Clear
Dim f As New Filler
f.Distinct=False
f.SourceTable = DataTables("凭证记录表") \'指定数据来源
f.SourceCols = "摘要,科目名称,借方金额,贷方金额,科目ID,客户ID,供应商ID" \'指定数据来源列
f.DataTable = DataTables("凭证录入表") \'指定数据接收表
f.DataCols = "摘要,科目,借方金额,贷方金额,科目ID,客户ID,供应商ID" \'指定数据接收列
f.Filter= "工作日期 = \'" & v3 & "\' and 凭证号 = " & i
f.Fill() \'填充数据
--  作者：有点甜
--  发布时间：2018/1/19 14:32:00
--  

DataTables("凭证录入表").dataRows.Clear
Dim f As New Filler
\'f.Distinct=False
f.SourceTable = DataTables("凭证记录表") \'指定数据来源
f.SourceCols = "摘要,科目名称,借方金额,贷方金额,科目ID,客户ID,供应商ID" \'指定数据来源列
f.DataTable = DataTables("凭证录入表") \'指定数据接收表
f.DataCols = "摘要,科目,借方金额,贷方金额,科目ID,客户ID,供应商ID" \'指定数据接收列
f.ExcludeExistValue = True
f.Filter= "工作日期 = \'" & v3 & "\' and 凭证号 = " & i
f.Fill() \'填充数据

 

如果还有问题，做个例子发上来测试。