以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  取一列中的最大值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26822)
--  作者：netfox168
--  发布时间：2012/12/15 0:33:00
--  取一列中的最大值

一属性为字符型的列，记录如 A0001, A0002, A0003 这样的序号，同一个号有若干个不等。我想取这列中的“最大值+1”赋值给某变量，比如上述序号在一列中出现数十次，代码运行结果为 A0004 并赋值给变量 X

 

代码如何写？
--  作者：lin_hailun
--  发布时间：2012/12/15 9:04:00
--  
 Dim max As String = DataTables("xxx").Compute("Max(xxxx)")
 If max = "" Then
     max = "A0001"
 Else
     max = A & Format(CInt(max.Substring(1)), "0000")
 End If

 msgbox(max)
--  作者：netfox168
--  发布时间：2012/12/15 9:55:00
--  
非常感谢，问题已解决。但第5行公式中的 A 漏了双引号，呵呵。