Foxtable(狐表)用户栏目专家坐堂 → 怎样直接生成纯数字编号


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

主题:怎样直接生成纯数字编号

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


加好友 发短信
等级:三尾狐 帖子:600 积分:4339 威望:0 精华:0 注册:2013/11/2 18:22:00
怎样直接生成纯数字编号  发帖心情 Post By:2018/8/29 16:46:00 [只看该作者]

怎样直接生成数字编号如 0001   0002   0003

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


加好友 发短信
等级:六尾狐 帖子:1309 积分:9507 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2018/8/29 16:50:00 [只看该作者]

Dim I As Integer = DataTables("表A").Compute("max(编号)")
Tables("表A").Current("编号") = Format(i,"0000")

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


加好友 发短信
等级:三尾狐 帖子:600 积分:4339 威望:0 精华:0 注册:2013/11/2 18:22:00
  发帖心情 Post By:2018/8/29 17:01:00 [只看该作者]

增加一行是编号没生成

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


加好友 发短信
等级:三尾狐 帖子:600 积分:4339 威望:0 精华:0 注册:2013/11/2 18:22:00
  发帖心情 Post By:2018/8/29 17:05:00 [只看该作者]

好了,谢谢!

 回到顶部