老师，下面是按钮的代码是填充数据，但是，点击按钮一次，填充到表的却是8倍的数量，相当于重复了7次，请问老师是怎么回事呢，哪个代码有问题？？麻烦指点，谢谢！！
For Each r As Row In Tables("增值税计算表").Rows
Dim f As New Filler
f.SourceTable = DataTables("增值税计算表") '指定数据来源
f.SourceCols = "单位编码,单位简称,集团名称,项目编码,项目简称,征税范围,税目,计税方式,计税基础,适用税率,应交增值税额,应交城建税,教育费附加,地方教育附加" '指定数据来源列
f.DataTable = DataTables("增值税汇总表") '指定数据接收表
f.DataCols = "单位编码,单位简称,集团名称,项目编码,项目简称,征税范围,税目,计税方式,计税基础,适用税率,应交增值税额,应交城建税额,应交教育附加,应交地方教育费附加" '指定数据接收列
f.ExcludeExistValue = True
f.filter = "xz = true "
f.Fill() '填充数据
Next
MainTable = Tables("增值税汇总表")
加好友 
发短信
Post By：2023/8/14 9:49:00 [只看该作者]
