Foxtable(狐表)用户栏目专家坐堂 → [求助]OpenQQ网络环境下的编号不连续问题


  共有1943人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/14 15:22:00 [显示全部帖子]

下面这个你做了没有?得到的编号,是最大的了没有?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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/12/15 0:01:00 [显示全部帖子]

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

 

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

If rt = "" Then

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

End If

msgbox(rt)


 回到顶部