以文本方式查看主题 - 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 -- 谢谢老大 |