DataTables("MMS080").SQLDeleteFor("")
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Insert Into MMS080 (itemnumber, quantity, ordernumber,status) Values(?,?,?,?)"
For Each dt As Row In Tables("tempmms080").Rows ''''历遍open mo
If CInt(dt.Index/1200) = dt.Index/1200 Then
Vars("loadingtext") ="请等待: " & math.Ceiling(100*dt.Index/Tables("tempmms080").Rows.count) & "%"
End If 这一段大约等了30几秒。从0%一直到100%
cmd.Parameters.Clear
cmd.Parameters.Add("@itemnumber",dt("Item number"))
cmd.Parameters.Add("@quantity",dt("Transaction quantity"))
cmd.Parameters.Add("@ordernumber",dt("Order number"))
cmd.Parameters.Add("@status",dt("Status"))
cmd.ExecuteNonQuery
Next
th2.start()
DataTables("MMS080").load
Tables("MMS080").ResumeRedraw
DataTables.delete("tempmms080")
Return Nothing
加好友 
发短信
Post By：2020/6/12 15:48:00 [只看该作者]
