主题：用OpenQQ实现网络环境下的编号

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:数据管理.rar

此主题相关图片如下：bh.png

重启项目后编号重复，重新001开始，请问怎样改代码才能不重复？

    Dim id As Integer

    If bh.Length = 12 Then

        bh = bh.SubString(7)

        If Integer.TryParse(bh, id) Then

            flbhs.Add(qz, id)

        End If

    End If

原因是编号里加了2个字符长度变了，计算就不对了。202302-001  10位 ，  CG202302-001 12位

此主题相关图片如下：001.png


此主题相关图片如下：002.png

新增一个编号，没有保存退出，再打开新增时编号不连续，
或者删除再新增时编号也不连续