主题：工资表与工资库数据填充问题

ExcludeExistValue

逻辑型，设为True，排除接收表中已经存在的内容。

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

 这句代码去掉 f.Append = False