以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  编号最大值延续自动生成  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90136)

--  作者:lxhmax
--  发布时间:2016/9/6 11:04:00
--  编号最大值延续自动生成
请问如何获取某一列编号的最大值,该列的编号格式为S123-1,S123-2,S124-1,S124-5......;我想根据中间的最大值123,124,接着生成一个编号S125-1,请问这个代码要如何编写???
--  作者:有点蓝
--  发布时间:2016/9/6 11:26:00
--  

Dim max As String
max = DataTables("表A").Compute("Max(编号)") \'取得该月的最大编号
Dim bh As Integer = max.SubString(1,3) + 1
magbox("S" & bh & "-1")


--  作者:lxhmax
--  发布时间:2016/9/6 16:20:00
--  
谢谢老大