我测试了，可以啊，只是如果表B的行数大于表A的行数，那就会只填充到表A的行数，而大于的行还是原数据，你可以在填充前先清空表B，然后再执行此代码

我这里是这样的，不知与您的思路有什么不同，自己对比一下：（应用于项目属性的MainTableChanged事件）


If MainTable.Name = "人材机汇总" Then
    DataTables("人材机汇总").DataRows.Clear()
    if DataTables("人材机").DataRows.Count > 1
        dim f As New Filler
        f.SourceTable = DataTables("人材机") \'指定数据来源
        f.SourceCols = "定额类别,费用类别,子目编号,子目名称,子目单位" \'指定数据来源列
        f.ExcludeExistValue = true
        f.ExcludeNullValue = true
        f.Distinct = true
        f.DataTable = DataTables("人材机汇总") \'指定数据接收表
        f.DataCols = "定额类别,费用类别,子目编号,子目名称,子目单位" \'指定数据接收列
        f.Filter = "[配比子目] is null or [配比子目] <> \'+\' + [子目编号]"
        f.Fill()
    end if
end if