Foxtable(狐表)用户栏目专家坐堂 → [求助] 关于自动生成编号


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

主题:[求助] 关于自动生成编号

帅哥哟,离线,有人找我吗?
初学者阿成
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:19 积分:191 威望:0 精华:0 注册:2016/12/28 9:13:00
[求助] 关于自动生成编号  发帖心情 Post By:2017/1/4 12:56:00 [只看该作者]


Select e.DataCol.Name
    Case "年月"
        'If e.DataRow.name="年月"   Then
        If e.DataRow.IsNull("年月") Then
            e.DataRow("数据编号") = Nothing
        Else
            Dim lb As String = e.DataRow("年月")
            If e.DataRow("数据编号").StartsWith(lb) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(数据编号)","年月 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.Substring(2,3)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("数据编号") = lb & Format(idx,"000")
            End If
        End If
    我在datacolchanged事件中加入上述的程序段,想自动生成数据数据编号,但没有成功。所有的数据行没有编号的时候是成功的,生成了“201611001”,但后面只有生相同的编号“201611162”,没有按原来“201611002”。。。。为什么会这样?


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


加好友 发短信
等级:婴狐 帖子:19 积分:191 威望:0 精华:0 注册:2016/12/28 9:13:00
  发帖心情 Post By:2017/1/4 14:22:00 [只看该作者]

补充:
1、上述程序号中的“年月”字段是字符型的,6位。“数据编号“也是字符型的,9位。
2、数据编号=[年月]+三位数字,该三位数字来自于当月统计数,不足位前补“0”。

 回到顶部
帅哥哟,离线,有人找我吗?
初学者阿成
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:19 积分:191 威望:0 精华:0 注册:2016/12/28 9:13:00
  发帖心情 Post By:2017/1/4 14:34:00 [只看该作者]

各位,我解决了,将"idx = CInt(max.Substring(2,3)) + 1" 更改为“idx = CInt(max.Substring(6,3)) + 1"


 回到顶部