主题：对任意长度前缀进行顺序编号

假设表格中的不同雇员、雇员代号，雇员姓名和代号长度不一致，要对任意长度前缀自动生成顺序编号（雇员姓名—雇员代号—顺序编号），可以将表格属性DataColChanged事件代码设置为：

Select e.DataCol.Name
    Case "雇员", "代号"        '取列
        If e.DataRow.IsNull("雇员") OrElse e.DataRow.IsNull("代号")  Then
            e.DataRow("同雇员同代号编号") = Nothing
        Else
            Dim lb As String = e.DataRow("雇员") & e.DataRow("代号")     '编号前缀
            If e.DataRow("同雇员同代号编号").StartsWith(lb) = False    '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(同雇员同代号编号)","雇员 = '" & e.DataRow("雇员") & "' And 代号 = '" & e.DataRow("代号") & "' And [_Identify] <> " & e.DataRow("_Identify"))     '取得该类别（同雇员同代号）的最大编号
                If max > "" Then '如果存在最大编号
                  idx = CInt((StrReverse( StrReverse(max).Substring(0,4))) .Substring(0)) + 1  '将获得的最大编号颠倒StrReverse(max)，取颠倒后的前4位纯数字StrReverse(max).Substring(0,4)，颠倒所取4位数字StrReverse( StrReverse(max).Substring(0,4))，将4位数字全取(StrReverse( StrReverse(max).Substring(0,4))) .Substring(0)，然后四位顺序号加1
                    Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("同雇员同代号编号") = lb & Format(idx,"0000")  '设编号为4位
            End If
        End If
End Select