主题：关于自动编号

1、员工编号，是根据“所属部门编号”生成

2、但是员工表中是没有部门编号，部门编号是在"部门"表中

我想实现编号功能，但是不知道怎么把员工编号改成：部门编号+2位顺序号

老师，我的下面代码也实现自动编号了，不过不能累加，每次顺序号都是“01”，编号的例子：ty2015010101-01

Select e.DataCol.Name

    Case "部门名称"

        If e.DataRow.IsNull("部门名称") Then

            e.DataRow("员工编号") = Nothing

        Else

            dim dr as datarow = datatables("部门").find("部门名称='" & e.datarow("部门名称") & "'")

if dr isnot nothing then

            If e.DataRow("员工编号").StartsWith(bh) = False '如果单据地块编号前缀不符

                Dim max As String

                Dim idx As Integer

                max = e.DataTable.SQLCompute("Max(员工编号)","部门名称 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该所属园区的最大地块编号

                If max > "" Then '如果存在最大地块编号

                    idx = CInt(max.Substring(13,2)) + 1 '获得最大地块编号的后三位顺序号,并加1

                Else

                    idx = 1 '否则顺序号等于1

                End If

                e.DataRow("地块编号") = bh & Format(idx,"00")

            End If

        End If

End Select

Select e.DataCol.Name

    Case "部门名称"

        If e.DataRow.IsNull("部门名称") Then

            e.DataRow("员工编号") = Nothing

        Else

            Dim dr As DataRow = DataTables("部门单位").find("部门='" & e.DataRow("部门名称") & "'")

            If dr IsNot Nothing Then

                Dim bh As String = dr("编号")

                If e.DataRow("员工编号").StartsWith(bh) = False '如果单据地块编号前缀不符

                    Dim max As String

                    Dim idx As Integer

                    max = e.DataTable.SQLCompute("Max(员工编号)","部门名称 = '" & bh  & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该所属园区的最大地块编号

                    If max > "" Then '如果存在最大地块编号

                        idx = CInt(max.Substring(3,2)) + 1 '获得最大地块编号的后三位顺序号,并加1

                    Else

                        idx = 1 '否则顺序号等于1

                    End If

                    e.DataRow("员工编号") = bh & Format(idx,"00")

                End If

            End If

        End If

End Select

e.DataRow.Save
此主题相关图片如下：qq截图20150519193736.png