Foxtable(狐表)用户栏目专家坐堂 → 自动生成编号


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

主题:自动生成编号

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


加好友 发短信
等级:一尾狐 帖子:496 积分:3242 威望:0 精华:0 注册:2022/3/25 7:44:00
自动生成编号  发帖心情 Post By:2022/10/7 10:42:00 [只看该作者]

老师帮忙看看自动编号不知怎么重复号,本来应该连号MC139E002后面又连续后面140
图片点击可在新窗口打开查看
Select e.DataCol.Name
    Case
 "类别"
        
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
End
 
Select

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


加好友 发短信
等级:超级版主 帖子:110348 积分:561588 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/10/7 10:47:00 [只看该作者]

idx = CInt(max.Substring(2,3)) + 1 
改为
idx = CInt(max.Substring(max.length - 3)) + 1 

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


加好友 发短信
等级:一尾狐 帖子:496 积分:3242 威望:0 精华:0 注册:2022/3/25 7:44:00
  发帖心情 Post By:2022/10/7 11:06:00 [只看该作者]

谢谢

 回到顶部