Dim f As New Filler
f.SourceTable = DataTables("XSD_ZB") '指定数据来源
f.SourceCols = "ID,RQ,DWBM,DWMC,BMMC,JBRMC,ZDR,SHR,ZDZK,ZSL,ZJE,TJE,WJS,ZZK,ZCB,ZML,MLL,BZ,SS,XJ,SK,CK,WX,ZFB" '指定数据来源列
f.DataTable = DataTables("XSTJ") '指定数据接收表
f.DataCols = "ID,RQ,DWBM,DWMC,BMMC,JBRMC,ZDR,SHR,ZDZK,ZSL,ZJE,TJE,WJS,ZZK,ZCB,ZML,MLL,BZ,SS,XJ,SK,CK,WX,ZFB" '指定数据接收列
f.Fill() '填充数据
f = New Filler
f.SourceTable = DataTables("XTD_ZB") '指定数据来源
f.SourceCols = "ID,RQ,DWBM,DWMC,BMMC,JBRMC,ZDR,SHR,ZDZK,ZSL,ZJE,TJE,WJS,ZZK,ZCB,ZML,MLL,BZ,SS,XJ,SK,CK,WX,ZFB" '指定数据来源列
f.DataTable = DataTables("XSTJ") '指定数据接收表
f.DataCols = "ID,RQ,DWBM,DWMC,BMMC,JBRMC,ZDR,SHR,ZDZK,ZSL,ZJE,TJE,WJS,ZZK,ZCB,ZML,MLL,BZ,SS,XJ,SK,CK,WX,ZFB" '指定数据接收列
f.Fill() '填充数据
加好友 
发短信
Post By：2017/1/25 9:03:00 [显示全部帖子]
