主题：关于自动编号，有没有更多的形式

 任何类型都可以事项，楼主做个例子发上来吧。

 关键是根据年月查找max编号。

 把你的表建好，输入测试数据，上传上来。

 Ok

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

点击浏览该文件:cmar system.table

--------------------------------------------

升级到最新版本的狐表。http://www.foxtable.com/

 我测试可以，但前提是你的编号是空值。把代码改成下面这样。

Select Case e.DataCol.Name
    Case "订单类别", "订单发生日", "客户代码"
        If Not (e.DataRow.IsNull("订单类别") OrElse e.DataRow.IsNull("订单发生日") OrElse e.DataRow.IsNull("客户代码")) Then
            Dim d As Date = e.DataRow("订单发生日")
            Dim filter As String = "订单类别 = '" & e.DataRow("订单类别") & "' And Convert(订单发生日, 'System.String') like '" & d.Year & "/" & d.Month & "/*' And 客户代码 = '" & e.DataRow("客户代码") & "' And _Identify <> " & e.DataRow("_Identify")
            Dim max As String = e.DataTable.Compute("Max(内部订单号)", filter)
            If max = "" Then
                e.DataRow("内部订单号") = e.DataRow("订单类别") & d.Year & d.Month & "01" & e.DataRow("客户代码")
            Else
                max = Format(Val(max.SubString(7,2)) + 1, "00")
                e.DataRow("内部订单号") = e.DataRow("订单类别") & d.Year & d.Month & max & e.DataRow("客户代码")
            End If
        End If
End Select