主题：[求助]OPENQQ编号出现重复。

 

没有弃用。只是用表来暂时存放数值。你通信不是还是要用openQQ来交互吗？

 客户端发送请求获取编号，把表名或前缀发过来。

 

 服务器接收到，就根据表名查询对应的行，编号值加1返回，然后把单元格的值加1。

 

 客户端接收到编号

谢谢。但是还是不会啊啊，之前用的都是单机的，复制粘贴代码。腆着脸问能不能贴出代码，自己都不好意思了，但是非常需要。

 客户端发送 QQClient.Send("我要编号|表A")

 

 服务器端

 

Dim msg As String = e.Message

If msg.StartsWith("我要编号") Then
    Dim fdr As DataRow = DataTables("编号表").Find("表名 = '" & msg.split("|")(1) & "'")
    If fdr IsNot Nothing Then
        fdr("编号") += 1
        fdr.save
        e.ReturnValue = fdr("编号")       
    End If
End If