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

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