主题：自动编号

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

点击浏览该文件:订单编号.zip

订单表初始加载为空 ，在过滤/排序 设置了 [_Identify] Is Null

在表属性DataRowAdding加入代码

Dim d As Date = Date.Today
Dim bh As String
Dim max As String
If d.Month >= 7 And d.Month <=12 Then
    bh = d.Year & "09"
Else If d.Month < 7 Then
    bh= d.Year & "02"
End If
max = e.DataTable.Compute("Max(订单编号)","订单编号 Like '" & bh & "%'")
If max = "" Then
    e.DataRow("订单编号") = bh & "001"
Else
    Dim v As Integer = max.SubString(6,3)
    e.DataRow("订单编号") = bh & format(v +1,"000")
End If

max = 代码怎样改？谢谢！