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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目147.foxdb

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

 

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

求老师指点。。。

没有前缀是不行的,你也可以取你部门列的拼音缩写为前缀.

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

部门表：

部门简码 部门名称

LS         磷酸车间

RD        热电车间

GH        供货车间

WL        物流车间

Compute("Max(编号)") 后加个条件判断

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

Select e.DataCol.Name
     Case  "部门"
          If e.DataRow.IsNull("部门") Then
             e.DataRow("编号") = Nothing
         Else
             Dim nr As  DataRow = DataTables("那个表").find("部门 = '" & e.DataRow("部门") & "'")
             Dim lb As String = nr("部门编号")
             If e.DataRow("编号").StartsWith(lb) = False  '如果单据编号前缀不符
                Dim max  As  String
                 Dim idx  As  Integer
                max = e.DataTable.Compute("Max(编号)","部门 = '" & e.DataRow("部门")  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > ""  Then  '如果存在最大编号
                    idx = CInt(max.Substring(2,3)) + 1  '获得最大编号的后三位顺序号,并加1
                 Else
                     idx = 1  '否则顺序号等于1
                 End  If
                 e.DataRow("编号") = lb & Format(idx,"000")
             End If
         End  If
 End  Select

 

知识点：

http://www.foxtable.com/help/topics/0396.htm

 

 

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