主题：某表从多少表中取值

 参考

Dim ts As String() = {"表A", "表B", "表C"}
for each t as string in ts
    Dim f As New Filler
    f.SourceTable = DataTables(t)
    f.SourceCols = "编号" '指定数据来源列
    f.DataTable = DataTables("表D") '指定数据接收表
    f.DataCols = "编号" '指定数据接收列
    f.ExcludeExistValue = True
    f.Fill() '填充数据
Next

尽量写到一个按钮里面去吧。

什么也不用填。

可以筛选掉空记录

Dim ts As String() = {"表A", "表B", "表C"}
DataTables("表D").DataRows.Clear
For Each t As String In ts
    Dim f As New Filler
    f.SourceTable = DataTables(t)
    f.SourceCols = "编号" '指定数据来源列
    f.DataTable = DataTables("表D") '指定数据接收表
    f.DataCols = "编号" '指定数据接收列
    f.ExcludeExistValue = True
    'f.ExcludeNullValue = True
    f.Filter = "某列 is not null"
    f.Fill() '填充数据
Next