Dim rt As String = QQClient.SendWait(":f" & e.DataTable.Name & "f:")
e.DataRow("编号") = rt
现在搞差个OPENQQ编码生成,看不懂里面的代码:
Dim rt As String = QQClient.SendWait(":f" & e.DataTable.Name & "f:")
是什么意思
这个是自己定义的一个标记,用来区分这个消息是做什么的,比如接收的信息是:f开头,并且是f:结尾的就是用来生成编号的,注意看服务端是怎么判断
3、在服务端的OpenQQ服务端事件ReceivedMessage中编写代码:
Dim msg As String = e.Message
If msg.StartsWith(":f") AndAlso msg.EndsWith("f:") Then
这些代码看不懂,不知哪出错了,入库表增加行时生成不了单据编码?
现在出现了一个问题,就是客户端一会不动时就生成不了编号,要生新登录才行
发消息前判断一下OpenQQ是不是掉线了,如果是就登录一下
If QQClient.Start() = False Then
Forms("登录窗口").Open()
Else
Dim rt As String = QQClient.SendWait(":f" & e.DataTable.Name & "f:")'''''''''''''''''''''增加行时,向服务器申请编号
e.DataRow("立帐编码") = rt
End If
这样行不行,
还有就是如何避免OPENQQ不掉线呢