以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动编号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45064)
--  作者：seal51
--  发布时间：2014/1/14 23:39:00
--  自动编号

下面这个代码为什么编号到10就不自动在加1了呢？（只能从1到10 ，不能继续11,12 。。。）

Dim max As Long
max = Tables("排产主表.排产明细表").Compute("max(序号)")
e.DataRow("序号") = max + 1
--  作者：Bin
--  发布时间：2014/1/15 8:36:00
--  
因为你的序号不是数值列
--  作者：seal51
--  发布时间：2014/1/15 21:18:00
--  

如何实现01,02,03。。。。。
--  作者：有点甜
--  发布时间：2014/1/15 21:34:00
--  
Dim max As String
max = Tables("表B").Compute("max(序号)")
If max > "" Then
    e.DataRow("序号") = format(val(max)+1, "00")
Else
    e.DataRow("序号") = "01"
End If