Foxtable(狐表)用户栏目专家坐堂 → [求助]产品编号和采购编号如何自动生成?


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

主题:[求助]产品编号和采购编号如何自动生成?

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


加好友 发短信
等级:婴狐 帖子:35 积分:387 威望:0 精华:0 注册:2017/7/21 16:24:00
[求助]产品编号和采购编号如何自动生成?  发帖心情 Post By:2017/7/24 16:06:00 [只看该作者]

产品编号
例:HB000001,HB000002
HB+6位数字,不重复,每次加1

采购编号
例:HB20170724001,HB20170724002
HB+日期+3位数字

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/24 16:29:00 [只看该作者]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/24 16:31:00 [只看该作者]

DataRowAdded事件


Dim bh As String = "bh"

Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(生产单编号)","生产单编号 like '" & bh & "%' ")
If max > "" Then '如果存在最大支付编号
    idx = CInt(max.Substring(bh.length)) + 1 '获得最大支付编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("生产单编号") = bh & Format(idx,"000000")


 回到顶部