Dim nms As String() = {"品名规格","物料品牌明细","表3","表4"} For Each nm As String In nms Dim f As New Filler f.SourceTable = DataTables(nm) '指定数据来源 f.SourceCols = "品名,规格,品牌" '指定数据来源列 f.DataTable = DataTables("物料总表") '指定数据接收表 f.DataCols = "品名,规格,品牌" '指定数据接收列 f.Fill() '填充数据 Next
加好友 
发短信
Post By：2012/10/22 14:29:00 [显示全部帖子]
