以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  工资表与工资库数据填充问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93063)

--  作者：czy --  发布时间：2016/11/19 19:55:00 --   ExcludeExistValue 逻辑型，设为True，排除接收表中已经存在的内容。

--  作者：有点青 --  发布时间：2016/11/20 9:58:00 --   For Each dt As DataRow In DataTables("工资月报表").DataRows     Dim gz As DataRow = DataTables("当年工资库").Find("年度 = \'" & dt("年度") & "\' And 月份 = \'" & dt("月份") & "\'")     If gz Is Nothing Then         Tables("当年工资库").ClearSubtotal()         Dim f As New Filler         f.SourceTable = DataTables("工资月报表") \'指定数据来源         f.DataTable = DataTables("当年工资库") \'指定数据接收表         f.Append = False         f.ExcludeExistValue = True         f.Fill() \'填充数据     Else         Return     End If Next

--  作者：有点青 --  发布时间：2016/11/20 18:35:00 --    这句代码去掉 f.Append = False