For Each ra As Row In Tables(bm1).Rows
pb1.Value=pb1.Value+1
dxjs=dxjs+1
sql2 = Nothing
For Each c As Col In Tables("基础数据A").Cols
' For Each c As String In ycs 'Tables(bm1).Cols
If c.IsNumeric Then sql2 + = ra(c.name) & ","
If c.IsString Then sql2 + = "'" & ra(c.name) & "',"
If c.IsDate Then sql2 + = 日期符1 & ra(c.name) & 日期符1 & ","
If c.IsBoolean Then
If ra(c.name) = True Then
sql2 + = 1 & ","
Else
sql2 + = 0 & ","
End If
End If
Next
cmd1.CommandText + = "InSert Into 基础数据 (" & sql1.Trim(",") & ") Values (" & sql2.Trim(",") & ");"
If pb1.Value Mod 2000 =0 Then
cmd1.CommandText = cmd1.CommandText.Trim(";")
cmd1.ExecuteNonQuery
cmd1.CommandText=Nothing
sql2=Nothing
dxjs=0
sjjg=Date.now-cssj
PopMessage("已经上传" & pb1.Value & "条数据! " & sjjg.TotalSeconds & "秒" ,"提示",PopIconEnum.Infomation,5)
类似这个？
加好友 
发短信
Post By：2017/12/15 9:46:00 [只看该作者]
