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

各位老师好！这段自动编号的代码想改为“不判断、不获取月的第一天和最后一天。将按月获取最大工号，改为获取全部最大工号（也就是全部的最大顺序号），最后生成的[工号]为：单位编码+工作日期[yyyyMM]+00000（5位顺序码）”。请老师帮助。谢谢

参考

 

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

谢谢老师！将老师的代码复制到表“DataColChanged”事件，运行出错如图：

谢谢教师指导！是我的问题（原有工号的格式和代码中的格式不一至），现已解决。再次感谢教师！

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

 

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

老师好！代码出现重复编号，不知原因，请老师再给看看（附实例附件）。谢谢！

老师好！加入辅佐列【顺序号】处理后，只要是“单位编码”不变，是能按顺序往下一直编号。但只要单位编码一变（比如说调动单位）其原有的顺序号就跟着娈了。但我想要的效果是：只要首次在增加人员时赋予其后四位顺序号后，就是终身的不可改变。其在调动单位时，只是变动单位编码，其首次赋予的“yyyyMM-0001”永远不变。还得麻烦老师再给修正一下代码。谢谢！

老师好！麻烦再帮助指导一下。谢谢。

 

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

点击浏览该文件:自动生成编号问题.table

 

谢谢老师指导。