比如在服务端的OpenQQ服务端事件ReceivedMessage，这样改改
Dim msg As String = e.Message
If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
msg = msg.SubString(2, msg.Length - 4)
If pdbhs.ContainsKey(msg) Then '如果存在这个类别的编号
pdbhs(msg) = pdbhs(msg) + 1 '将该类别最大编号加1
Else
Dim bh As String = DataTables("订单").SQLCompute("Max(编号)","编号 like '" & msg & "%'")
Dim bhz = 1
If bh > "" Then CInt(bh.SubString(2))+1
pdbhs.Add(msg,bhz)
End If
e.ReturnValue = pdbhs(msg) '将编号返回给客户端
End If
或者还有一种方法，不要用字典存储编号，直接加载整个编号表，然后通过查询编号表来取值和保存
加好友 
发短信
Post By：2016/8/4 9:18:00 [显示全部帖子]
