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

帮助文档的代码，是要求你服务器程序，不能关闭的。

如果要不归零，你必须修改服务器端的代码，也就是关闭项目之前，把编号的信息保存回表里去

如，BeforeCloseProject事件，写代码

For Each key As String In pdbhs.Keys
    DataTables("产品").ReplaceFor("编号", key & Format(pdbhs(key),"000"), "类别 = '" & key & "'")
Next
DataTables("产品").Save

做一个编号表。记录各个编号的最大值。如

表A   BH    5

表B   XL    10

这样，可以直接启用变量，直接在这个表里面查询存取数据，即可。

没有弃用。只是用表来暂时存放数值。你通信不是还是要用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