Dim f As New Fillerf.SourceTable = DataTables("表A") '指定数据来源f.SourceCols = "第一列" '指定数据来源列f.DataTable = DataTables("表c") '指定数据接收表f.DataCols = "第一列" '指定数据接收列f.ExcludeExistValue = Truef.Fill() '填充数据f = New Fillerf.SourceTable = DataTables("表B") '指定数据来源f.SourceCols = "第二列" '指定数据来源列f.DataTable = DataTables("表c") '指定数据接收表f.DataCols = "第一列" '指定数据接收列f.ExcludeExistValue = Truef.Fill() '填充数据