If DataTables("表B").DataCols.Contains("AA") = False
DataTables("表B").DataCols.Add("AA",Gettype(Integer),"")
End If
Dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "_Identify,第一列,第二列" '指定数据来源列
f.DataTable = DataTables("表B") '指定数据接收表
f.DataCols = "AA,第一列,第二列" '指定数据接收列
f.Fill() '填充数据