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

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

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

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