Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据新行号重新重置自动编号


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

主题：根据新行号重新重置自动编号
美女呀，离线，留言给我吧！
sxjwj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：237 威望：0 精华：0 注册：2018/2/2 22:50:00 		根据新行号重新重置自动编号  发帖心情 Post By：2018/2/7 9:11:00 [显示全部帖子]

在门店店长调整中，自动编号不能按新的行号排序来自动编号，如何解决？
图片点击可在新窗口打开查看此主题相关图片如下：修改前数据.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：修改数据后.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/2/7 9:12:33编辑过]
 回到顶部
美女呀，离线，留言给我吧！
sxjwj
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：237 威望：0 精华：0 注册：2018/2/2 22:50:00 		  发帖心情 Post By：2018/2/7 9:21:00 [显示全部帖子]

最终效果是要弄成这样，就是不论我怎么调整人员，都根据行号排序来自动编号
图片点击可在新窗口打开查看此主题相关图片如下：最终效果.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
sxjwj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：237 威望：0 精华：0 注册：2018/2/2 22:50:00 		  发帖心情 Post By：2018/2/7 9:27:00 [显示全部帖子]

或者根据岗位先排序，比如店长优先，然后营业员，这样自动编号可行吗？

 回到顶部
美女呀，离线，留言给我吧！
sxjwj
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：237 威望：0 精华：0 注册：2018/2/2 22:50:00 		  发帖心情 Post By：2018/2/7 9:46:00 [显示全部帖子]

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(4,3)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("员工编号") = lb & Format(idx,"-000")
            End If
        End If
End Select
 回到顶部
美女呀，离线，留言给我吧！
sxjwj
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：237 威望：0 精华：0 注册：2018/2/2 22:50:00 		  发帖心情 Post By：2018/2/7 9:48:00 [显示全部帖子]

我是根据帮助文件里的代码做的，但一旦有变动了，自动编号就无法按我的要求自动编号了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试.table
 回到顶部
美女呀，离线，留言给我吧！
sxjwj
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：237 威望：0 精华：0 注册：2018/2/2 22:50:00 		  发帖心情 Post By：2018/2/7 10:06:00 [显示全部帖子]

调试了，成功了，非常感谢大神

 回到顶部
美女呀，离线，留言给我吧！
sxjwj
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：237 威望：0 精华：0 注册：2018/2/2 22:50:00 		  发帖心情 Post By：2018/2/7 12:22:00 [显示全部帖子]

我又碰到一个问题，比如按岗位条件排序自动编号，第1条件是“店长”，就像上文那样编，如追加第二条件是“副店长”来排序自动编号的话，如何编？

 回到顶部
美女呀，离线，留言给我吧！
sxjwj
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：237 威望：0 精华：0 注册：2018/2/2 22:50:00 		  发帖心情 Post By：2018/2/7 12:39:00 [显示全部帖子]

我又碰到一个问题，比如按岗位条件排序自动编号，第1条件是“店长”，就像上文那样编，如追加第二条件是“副店长”来排序自动编号的话，如何编？

 回到顶部
美女呀，离线，留言给我吧！
sxjwj
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：16 积分：237 威望：0 精华：0 注册：2018/2/2 22:50:00 		  发帖心情 Post By：2018/2/7 12:49:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：原数据.png
图片点击可在新窗口打开查看
自动编号第一条件为店长，这个上面的代码已解决，但如果追加第二条件为质量负责人，如何追加代码
[此贴子已经被作者于2018/2/7 12:50:52编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 6 次数据查询