主题：取一列中的最大值

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

 

代码如何写？

 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)

非常感谢，问题已解决。但第5行公式中的 A 漏了双引号，呵呵。