Foxtable(狐表)用户栏目专家坐堂 → [求助]自动编号代码写法


  共有21182人关注过本帖平板打印复制链接

主题:[求助]自动编号代码写法

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


加好友 发短信
等级:婴狐 帖子:2 积分:62 威望:0 精华:0 注册:2008/9/1 0:11:00
[求助]自动编号代码写法  发帖心情 Post By:2008/11/26 18:59:00 [只看该作者]

在表的DataRowAdding事件中如何写代码实现指定格式的自动编号呢?

以下内容为程序代码:

1 dim dt as string = “ywbh”& “-”& Format(Date.Today(),"yymmdd") & "-" & Format(DataTables("表A").DataRows.Count,"000")
2
3 e.DataRow("第二列") = dt
4


这种编码方式,如果删掉前面的行,会出现重复编号。

我想实现这样的“ywbh-081126-001”、“ywbh-081126-002”……

当日期代码变化后(如:从081126变为081127)后边的编号段则重新由001开始计数。

要求删除一个号码不能引起其他号码变化、删除后如果新增编号自动用同日的编号中尾数最大值+1比如同日最大的是ywbh-081126-002,则新增的应该是ywbh-081126-003

count可以带条件参数吗?

[此贴子已经被作者于2008-11-26 19:00:15编辑过]

 回到顶部