Dim zyid As String = Args(0) '专业id
Dim ksid As String = Args(1) '考生联系电话
Dim ksxm As String = Args(2) '考生姓名
Dim teacher As String = Args(3) '指导老师
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Sele ct Count(*) From {专业_自选} Where 考生id='" & ksid & "' and id='" & zyid & "'"
Dim count As Integer = cmd.ExecuteScalar
If count = 0 Then
cmd.CommandText = "Se lect 科类,批次,学校代号,学校名称,专业代号,专业名称,专业简注 from {河北省_志愿填报} Where id='" & zyid & "'"
Dim Values = cmd.ExecuteValues
cmd.CommandText = "Inser t Into 专业_自选 (科类,批次,学校代号,学校名称,专业代号,专业名称,专业说明,id,考生id,考生姓名,填加时间,指导老师) Values(?,?,?,?,?,?,?,?,?,?,?,?)"
cmd.Parameters.Add("@科类", Values("科类"))
cmd.Parameters.Add("@批次", Values("批次"))
cmd.Parameters.Add("@学校代号", Values("学校代号"))
cmd.Parameters.Add("@学校名称", Values("学校名称"))
cmd.Parameters.Add("@专业代号", Values("专业代号"))
cmd.Parameters.Add("@专业名称", Values("专业名称"))
cmd.Parameters.Add("@专业说明", Values("专业简注"))
cmd.Parameters.Add("@id", zyid)
cmd.Parameters.Add("@考生id", ksid)
cmd.Parameters.Add("@考生姓名", ksxm)
cmd.Parameters.Add("@填加时间", Date.Now)
cmd.Parameters.Add("@指导老师", teacher)
cmd.ExecuteNonQuery
Else
cmd.CommandText = "DE LETE FROM {专业_自选} Where 考生id='" & ksid & "' and id='" & zyid & "'"
cmd.ExecuteNonQuery()
End If
调用异步函数代码如下，此代码我放在了“DataColChanged”事件中：
Functions.AsyncExecute("专业_打印增删异步", e.DataRow("id"), Vars("联系电话"), vars("姓名"), Vars("指导老师"))
当我对当前表1000行操作时，假如需要往“专业_自选”表中增加1000行数据，我在查询“专业_自选”表中记录的条数状态，发现会显示“100，150、203、486。。。。”也是慢慢增加的过程，并没有瞬间这1000行就增加到“专业_自选”表中，既然是单独的线程，应该和增加一条的时间是相同的呀，为啥感觉还和单线程差不多呢