服务器端 receivedmessage 代码如下Dim msg As String = e.Message
If msg.StartsWith("##") And msg.EndsWith("##") Then '收到请求档案编号信号
Dim key As String = msg.Substring(2,msg.length -4)
msg = "OK##"
Dim dr As DataRow
If key Like "######"Then
dr= DataTables("档案编号统计").find("档案编号 = '" & keys(0) & "'")
If dr IsNot Nothing Then
dr("数量") = dr("数量") +1
For i As Integer= dr("数量") To 1 Step -1
If dr("顺序号登记").contains( format(i,"00") & "|" ) = False Then
msg = msg & ";" & Format(i,"00")
dr("顺序号登记") = dr("顺序号登记") & format(i,"00") & "|"
Exit For
End If
Next
Else
Tables("档案编号统计").addnew
Tables("档案编号统计").Current("档案编号") = keys(0)
Tables("档案编号统计").Current("数量") = 1
Tables("档案编号统计").Current("顺序号登记") = "01|"
msg =msg & ";01"
End If
Else
msg = key & ":不符合要求,无法正常编号!"
Exit For
End If
e.ReturnValue = msg
End If
客户端 beforesavedatarow 代码如下
Dim dr As DataRow = e.DataRow
Dim msg As String = "##" & dr("档案编号") & "##"
msg = QQClient.SendWait(msg,5)
If msg.StartsWith("OK##") Then
dr("档案编号") = dr("档案编号") & "-" & msg.SubString(4).Trim(";")
Else
e.Cancel = True
End If
问题：
测试表共2列：姓名、档案编号，共267行数据
当在一个客户端执行datatables("测试").save 时，保存完用时近60秒。相同的测试数据，当两个客户端同时执行datatables(“测试”).save 时，每个客户端保存完用时都在15秒左右。这个时间差是哪产生的？
加好友 
发短信
Post By：2016/9/21 15:25:00 [只看该作者]
