Foxtable(狐表)用户栏目专家坐堂 → 跨年自动编号问题


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

主题:跨年自动编号问题

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


加好友 发短信
等级:五尾狐 帖子:1175 积分:8792 威望:0 精华:0 注册:2012/4/18 16:28:00
跨年自动编号问题  发帖心情 Post By:2016/1/22 10:31:00 [显示全部帖子]

老师,我写的代码第一行手工输入001后能实现自动编号了,该编号要用到其他地方形成其他编号,现在有个问题

如何设置条件,例如到2017年1月1日开始,该编号又从001开始自动编号

Dim drs As List(Of DataRow)
drs = DataTables("档案管理").Select("","档案号 Desc")
e.DataRow("档案号") = drs(0)("档案号").substring(0,2) & drs(0)("档案号").substring(2)+1

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


加好友 发短信
等级:五尾狐 帖子:1175 积分:8792 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/1/22 10:38:00 [显示全部帖子]

001只是文件顺序号,要用到其他地方和日期、类别、新孙序号形成不从复的识别号,每年的文件顺序号需要从001第一级开始

关于自动编号的帮助我看了,帮助中的例子我会做的,就是跨年的怎么做不知道
[此贴子已经被作者于2016/1/22 10:39:36编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1175 积分:8792 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/1/22 11:01:00 [显示全部帖子]

老师,您指导的代码 出现调用目标发生异常,也不进行编号,

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


加好友 发短信
等级:五尾狐 帖子:1175 积分:8792 威望:0 精华:0 注册:2012/4/18 16:28:00
  发帖心情 Post By:2016/1/22 11:23:00 [显示全部帖子]

请老师看看,我只想实现的是自动编顺序号001开始,跨年重新001开始,我的问题在哪里,谢谢!  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试11.zip



 回到顶部