- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 数据列，，增加一行 订单号自动增加1 ？？？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109939)
-- 发布时间：2017/11/23 11:07:00
-- 数据列，，增加一行 订单号自动增加1 ？？？
数据列，，增加一行 订单号自动增加1 ？？？
此主题相关图片如下：qq图片20171123110624.png
-- 发布时间：2017/11/23 11:10:00
--
DataRowAdded事件
Dim bh As String = "vr"
dim max = e.DataTable.Compute("Max(订单号)", "订单号 Like \'" & bh & "%\'")
dim idx = 1
If max > "" Then \'如果存在最大单据编号
idx = CInt(max.Substring(bh.length)) + 1
End If
e.DataRow("订单号") = bh & Format(idx,"00000")