主题：用OpenQQ实现网络环境下的编号（已解决）

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

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

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

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")

 

 

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


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


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

 

 

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


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

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

点击浏览该文件:编号处理.rar

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