[求助]OPENQQ编号出现重复。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]OPENQQ编号出现重复。

共有3717人关注过本帖树形打印复制链接主题：[求助]OPENQQ编号出现重复。

苦为用功

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：93 积分：1070 威望：0 精华：0 注册：2015/3/8 11:11:00

[求助]OPENQQ编号出现重复。 发帖心情

Post By：2016/7/22 9:41:00 [只看该作者]

根据帮助中的《用OpenQQ实现网络环境下的编号》做的编号，不关闭项目添加正常，但是每次重新打开项目输入"类别"，编号就归零。请问是什么原因？全程QQClient斗正常连接。

If e.DataCol.Name = "类别" Then
    If e.DataRow.IsNull("类别") Then
        e.DataRow("编号") = Nothing
    Else
        If QQClient.Ready = False Then
            PopMessage("QQClient未启动,无法生成编号!","提示",PopIconEnum.Infomation,5)
        Else
            Dim bh As String = e.DataRow("类别")
            Dim rt As String = QQClient.SendWait(":f" & bh & "f:")
            Dim id As Integer
            If rt > "" Then
                If Integer.TryParse(rt,id) Then
                    e.DataRow("编号") = bh & Format(id,"000")
                Else
                    PopMessage("服务器返回错误信息:" & rt,"提示",PopIconEnum.Infomation,5)
                End If
            Else
                PopMessage("服务器无响应,无法生成编号!","提示",PopIconEnum.Infomation,5)
            End If
        End If
    End If
End If

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/22 9:45:00 [只看该作者]

[此贴子已经被作者于2016/7/22 9:46:52编辑过]

苦为用功

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：93 积分：1070 威望：0 精华：0 注册：2015/3/8 11:11:00

Post By：2016/7/22 9:52:00 [只看该作者]

补充一下，也尝试在生成编号收加入save但是也不行。之前用的还好好的，不知道怎么就变成这样了。图片点击可在新窗口打开查看

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/7/22 9:57:00 [只看该作者]

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

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

如，BeforeCloseProject事件，写代码

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

[此贴子已经被作者于2016/7/22 9:58:26编辑过]

苦为用功

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：93 积分：1070 威望：0 精华：0 注册：2015/3/8 11:11:00

Post By：2016/7/22 10:10:00 [只看该作者]

谢谢大红袍老师。我试了下添加后保存，服务端开启同一个表格，加载后服务端出现该新建，数据库也有该行，然后关闭客户端再连接编号仍然重头开始。

下面的这段代码不是对比现有编号的吗？而且开了编号列禁止重复，不管用也。

字典储存在内存中重新打开后就会清零吗？

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
        pdbhs.Add(msg,1) '如果是这个列表的首次编号,则编号等于1
    End If
    e.ReturnValue = pdbhs(msg) '将编号返回给客户端
End If

苦为用功

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：93 积分：1070 威望：0 精华：0 注册：2015/3/8 11:11:00

Post By：2016/7/22 11:31:00 [只看该作者]

大红袍老师，菜单上的保存按键是这个Syscmd.Project.Save()吧？和您提供的有什么不同？保存按键不是直接全表保存了吗？

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