专家坐堂-用OpenQQ实现网络环境下的编号（已解决）Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  用OpenQQ实现网络环境下的编号（已解决）  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185167)

--  作者：青丘狐
--  发布时间：2023/2/8 10:53:00
--  用OpenQQ实现网络环境下的编号（已解决）

提示QQClient未启动,无法生成编号

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:数据管理.rar

[此贴子已经被作者于2023/2/27 13:51:41编辑过]

--  作者：青丘狐
--  发布时间：2023/2/8 10:56:00
--

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 = Format(e.DataRow("日期"),"yyyyMM")
            Dim rt As String = QQClient.SendWait(":p" & bh & "p:")
            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

编号格式是CG202301-001

这样改可以吗？

e.DataRow("编号") = "CG " & bh & "-" & Format(id,"000")

--  作者：有点蓝
--  发布时间：2023/2/8 11:04:00
--
那么有启动客户端了吗？http://www.foxtable.com/webhelp/topics/2972.htm

编号格式是自己定义的，想改成什么格式都可以，但是要注意
1、同时要更改服务端生成编号的格式
2、要保证旧编号和新编号的格式一致

--  作者：青丘狐
--  发布时间：2023/2/27 13:46:00
--

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

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

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

--  作者：青丘狐
--  发布时间：2023/2/27 13:48:00
--

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

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

--  作者：青丘狐
--  发布时间：2023/2/27 13:51:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:编号处理.rar

解决了，谢谢老师写的示例