Dim fx As New Filler
fx.SourceTable = DataTables("表B“)
fx.SourceCols = "BomId,SortSeq,ComponentId,BaseQtyN,BaseQtyD,ParentId,Version,cInvName,VersionDesc,PN,FNumber,CreateDate,Category,Customer,Sales,EAU"
fx.DataTable = DataTables("表A")
fx.DataCols = "BomId,SortSeq,ComponentId,BaseQtyN,BaseQtyD,ParentId,Version,cInvName,VersionDesc,PN,FNumber,CreateDate,Category,Customer,Sales,EAU"
fx.ExcludeExistValue = True
fx.Distinct = False
fx.Fill() '填充数据