一、手工编码 117秒
Dim cmd As New SQLCommand
cmd.ConnectionName = sjy
Dim dt As DataTable
cmd.CommandText = "S ELECT * From {A1_qdk} "
dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
Dim dr2 As DataRow = DataTables("A1_qdk").AddNew()
For i As Integer = 0 To dt.DataCols.Count - 1
dr2(dt.DataCols(i).Name) = dr1(dt.DataCols(i).Name)
Next
Next
二、Filler 90秒
Dim cmd As New SQLCommand
cmd.ConnectionName = sjy
Dim dt As DataTable
cmd.CommandText = "S ELECT * From {A1_qdk} "
dt = cmd.ExecuteReader()
Dim f As New Filler
f.SourceTable = dt '指定数据来源
f.SourceCols = "XH,BH,MC,DW,GZRR,JSGZ,ZJBJ" '指定数据来源列
f.DataTable = DataTables("A1_qdk") '指定数据接收表
f.DataCols = "XH,BH,MC,DW,GZRR,JSGZ,ZJBJ" '指定数据接收列
f.Distinct = False
f.Fill() '填充数据
DataTables("A1_qdk").Save
三、Merger 325秒
Dim mg As New Merger
mg.SourcePath = dlg.FileName
StatusBar.Message1 = ("正在导入清单库...")
mg.SourceTableName = "1_qdk"
mg.DataTableName = "A1_qdk"
mg.Merge()
加好友 
发短信
Post By：2023/9/5 16:15:00 [显示全部帖子]
