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.Fill() '填充数据 Next
加好友 
发短信
Post By：2016/8/11 16:54:00 [只看该作者]
