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

现在有一个表里面有三列：编号，部门，内容。现在想让编号列按照部门自增。在表的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

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

 

此主题相关图片如下：qq截图20140110105717.png

求老师指点。。。

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

部门表：

部门简码 部门名称

LS         磷酸车间

RD        热电车间

GH        供货车间

WL        物流车间

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

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