请教高手帮助修改自动编码的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教高手帮助修改自动编码的代码

共有11196人关注过本帖树形打印复制链接主题：请教高手帮助修改自动编码的代码

yhl1122

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：39 积分：358 威望：0 精华：0 注册：2011/10/29 15:55:00

请教高手帮助修改自动编码的代码 发帖心情

Post By：2011/11/10 17:57:00 [只看该作者]

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

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