主题：请教高手帮助修改自动编码的代码

我希望如图所示，当员工名改变时，订单编码如图改变，但我的代码不知道哪错了，一改员工，所有的订单编码都改变了，请高手帮助修改一下，谢谢！

If e.DataCol.Name = "员工" Then
    If e.DataRow.IsNull("员工") Then
        e.DataRow("订单编码") = Nothing
    Else
        Dim a As String = e.DataRow("员工")
        Dim d As Date = Date.Today()
        Dim y As Integer = d.Year
        Dim m As Integer = d.Month
        Dim bh As String = a & "-" & Format(d,"MM") & "-"
        Dim drs As List(of DataRow) = e.DataTable.Select("")
        For i As Integer = 0 To drs.Count - 1
            drs(i)("订单编码")  = bh & format(i+1,"000")
        Next
    End If
End If

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

点击浏览该文件:管理项目127.rar

谢谢狐狸爸爸，