Foxtable(狐表)用户栏目专家坐堂 → [求助]生成编号的问题


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

主题:[求助]生成编号的问题

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


加好友 发短信
等级:幼狐 帖子:153 积分:1174 威望:0 精华:0 注册:2013/6/19 10:54:00
[求助]生成编号的问题  发帖心情 Post By:2014/1/10 10:01:00 [显示全部帖子]

现在有一个表里面有三列:编号,部门,内容。现在想让编号列按照部门自增。在表的DataRowAdded事件中实现。比如磷酸车间人员进入系统添加信息编号就自增为LS0004,供货车间人员添加信息编号就自增为GH0003,以此类推,每次找该车间最大编号,在这个基础上递增。


图片点击可在新窗口打开查看此主题相关图片如下:qq截图ererer.png
图片点击可在新窗口打开查看
现在我只能实现不按照部门的,求帮忙改一下。
Dim max As String
Dim idx As Integer
max = DataTables("主表").Compute("Max(编号)") '这句话只能取到当前表最大编号,是不对的。
If max IsNot Nothing Then '如果存在最大编号
    idx = CInt(max.SubString(2)) + 1 '获得最大编号的后四位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("编号") = "LS" & Format(idx,"0000")

上个例子:

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

[此贴子已经被作者于2014-1-10 10:13:36编辑过]

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


加好友 发短信
等级:幼狐 帖子:153 积分:1174 威望:0 精华:0 注册:2013/6/19 10:54:00
  发帖心情 Post By:2014/1/10 10:33:00 [显示全部帖子]

图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:153 积分:1174 威望:0 精华:0 注册:2013/6/19 10:54:00
  发帖心情 Post By:2014/1/10 10:59:00 [显示全部帖子]

bin老师,还是有一点不是很明白,我的表中并没有部门的前缀列,就是LS,GH,WL,RD这些列,我应该怎么去做呢?像帮助中的“按类别编号”那个例子还有类别,我要怎么去取这两位的前缀啊?

 


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140110105717.png
图片点击可在新窗口打开查看
求老师指点。。。

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


加好友 发短信
等级:幼狐 帖子:153 积分:1174 威望:0 精华:0 注册:2013/6/19 10:54:00
  发帖心情 Post By:2014/1/10 11:07:00 [显示全部帖子]

我的前缀是在另一个部门表中,那里面是有前缀的,但是如果两个部门缩写重名了,就必须得改掉一个部门的缩写了,这个时候拼音就不行了啊,是否可以通过那个表的部门简码去关联过来呢?

部门表:

部门简码 部门名称

LS         磷酸车间

RD        热电车间

GH        供货车间

WL        物流车间


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


加好友 发短信
等级:幼狐 帖子:153 积分:1174 威望:0 精华:0 注册:2013/6/19 10:54:00
  发帖心情 Post By:2014/1/10 11:14:00 [显示全部帖子]

能否在狐爸做的例子基础上,加上部门表后写个例子给我看看呢?不是很清楚应该怎么写这个条件。。。

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


加好友 发短信
等级:幼狐 帖子:153 积分:1174 威望:0 精华:0 注册:2013/6/19 10:54:00
  发帖心情 Post By:2014/1/10 11:39:00 [显示全部帖子]

谢谢Bin和狐爸的帮助,问题已经得到解决。不甚感激!!!

 回到顶部