以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  重复填充  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187814)

--  作者：爱相随 --  发布时间：2023/8/14 9:49:00 --  重复填充 老师，下面是按钮的代码是填充数据，但是，点击按钮一次，填充到表的却是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("增值税汇总表")

--  作者：有点蓝 --  发布时间：2023/8/14 9:57:00 --   Filler本来就是整个表数据全部填充的，没有必要遍历

--  作者：爱相随 --  发布时间：2023/8/14 10:00:00 --   主要是重复数据，同一条信息多出7条出来