主题：[求助]自动编号代码修正

参考

Select e.DataCol.Name
    Case "工作日期","单位编码"
        If e.DataRow.IsNull("工作日期") OrElse e.DataRow.IsNull("单位编码") Then
            e.DataRow("工号") = Nothing
        Else
            Dim d As Date = e.DataRow("工作日期")
            Dim bh As String = e.DataRow("单位编码") & "-" & Format(d,"yyyyMM") & "-" '生成编号的前缀
            If e.DataRow("工号").StartsWith(bh) = False '如果工号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "[_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(工号)",flt) '取得该月的相同单位编码的最大工号
                If max > "" Then '如果存在最大工号
                    idx = CInt(max.Substring(bh.length, 4)) + 1 '获得最大工号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("工号") = bh & Format(idx,"0000")
            End If
        End If
End Select

需要加入辅佐列【顺序号】处理

Select e.DataCol.Name
    Case "工作日期","单位编码"
        If e.DataRow.IsNull("工作日期") OrElse e.DataRow.IsNull("单位编码") Then
            e.DataRow("工号") = Nothing
        Else
            Dim d As Date = e.DataRow("工作日期")
            Dim bh As String = e.DataRow("单位编码") & "-" & Format(d,"yyyyMM") & "-" '生成编号的前缀
            If e.DataRow("工号").StartsWith(bh) = False '如果工号前缀不符
                Dim flt As String
                flt = "[_Identify] <> " & e.DataRow("_Identify")
                Dim idx As Integer = e.DataTable.Compute("Max(顺序号)",flt) '取得该月的相同单位编码的最大工号
                idx += 1
                e.DataRow("工号") = bh & Format(idx,"0000")
                e.DataRow("顺序号") = idx
            End If
        End If
End Select