主题：如何提取客户编号的最大值？

我想从若干条客户编号记录中找到其中的最大值，然后提取数字部分加1，然后再把“KH”与新数值合并，形成一个新的编号。

来一段新鲜、别致的自动编号：

Dim t As Table = CurrentTable
If t.Rows.Count = 0  Then
    t.AddNew()
    t.Rows(0)("客户编号") = "KH001"
ElseIf t.Rows.Count = 1  Then
    t.AddNew()
    t.Rows(1)("客户编号") = "KH002"
Else   
    t.AddNew()
    t.Select(t.Rows.Count - 1,t.Cols("客户编号").Index)
    Syscmd.Edit.SerialFill()
End If

 

 

注：行是一行一行增加的，符合操作惯例，不是一次增加多行。

非常感谢lsy，通过你的方法，编号的问题解决了！