Foxtable(狐表)用户栏目专家坐堂 → 现在使用了OPENQQ进行单号生成管理


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

主题:现在使用了OPENQQ进行单号生成管理

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


加好友 发短信
等级:超级版主 帖子:107304 积分:545781 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/5 21:02:00 [显示全部帖子]

重置列这种功能正常不应该给普通用户使用的。因为一般是事件代码更改后,希望重置列处理一下旧数据。而发布后的程序是无法编辑事件代码的,也就不存在处理旧数据这种情况。

另外可以参考一下这里的方法是对编号数据做一个基础判断:http://www.foxtable.com/webhelp/topics/2403.htm,即如果编号的前n位是不符合要求的才去获取新的编号

        If QQClient.Ready = False Then
            PopMessage("QQClient未启动,无法生成编号!","提示",PopIconEnum.Infomation,5)
        Else
                Dim bh As String = e.DataRow("工程代码"& "-" &  Format(e.DataRow("制单日期"),"yyyyMM")
        If e.DataRow("编号").StartsWith(bh) = False '如果编号的前6位不符
                Dim rt As String =  QQClient.SendWait(":g" & bh & "g:")
                
Dim id As Integer
                If rt > "" Then
……
        End If

 回到顶部