网络环境下的自动编号第二个例子:
1、客户端项目的对应的表,在其DataColChanged事件中加上代码,下边的代码是啥意思啊: Dim rt As String = QQClient.SendWait(":p" & bh & "p:")
Dim id As Integer
If rt > "" Then
If Integer.TryParse(rt,id) Then
……
2、在服务端的OpenQQ服务端事件ReceivedMessage中编写代码: 下面的代码是什么意思啊(e.Message是什么格式的数据啊)?
Dim msg As String = e.Message
If msg.StartsWith(":g") AndAlso msg.EndsWith("g:") Then
If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
If msg.StartsWith(":p") AndAlso msg.EndsWith("p:") Then
[此贴子已经被作者于2018/5/25 16:55:27编辑过]