以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  自动编号  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=82072)

--  作者:联友
--  发布时间:2016/3/11 8:34:00
--  自动编号

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:订单编号.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 = 代码怎样改?谢谢!

[此贴子已经被作者于2016/3/11 8:34:25编辑过]

--  作者:Hyphen
--  发布时间:2016/3/11 8:53:00
--  
max = e.DataTable.SqlCompute("Max(订单编号)","订单编号 Like \'" & bh & "%\'")
--  作者:联友
--  发布时间:2016/3/11 9:07:00
--  
谢谢!