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

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