主题：[求助]OpenQQ网络环境下的编号不连续问题

下面这个你做了没有？得到的编号，是最大的了没有？msgbox弹出看看。

2、在服务端的AfterOpenProjet事件中编写代码：

Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Select 类别, Max(编号) As 编号 From {产品} Group By 类别"
dt = cmd.ExecuteReader
flbhs.Clear()
For Each dr As DataRow In dt.DataRows
    Dim qz As String = dr("类别") '编号前缀
    Dim bh As String =  dr("编号")

    msgbox(bh)
    Dim id As Integer
    If bh.Length = 5 Then
        bh = bh.SubString(2)
        If Integer.TryParse(bh,id) Then
            flbhs.Add(qz, id)
        End If
    End If
Next

如果获取编号不正常，你再获取一次看看

Dim rt As String =  QQClient.SendWait(":f" & bh & "f:")

If rt = "" Then

    rt =  QQClient.SendWait(":f" & bh & "f:")

End If

msgbox(rt)