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