主题：找到最大行号

想找到编号列最大的行号并定位在这一行，请老师看看我的代码错在哪了？

With CurrentTable
    Dim r As String

    r = .FindRow("[编号] = 'max'") '从第一行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    End If
End With

Table的find、findrow无法获取最大值，必须用DataTable的find才能下，如

With CurrentTable
    Dim fdr As DataRow = .DataTable.Find("", "编号 desc") '从第一行开始查找
    Dim r As Integer = .FindRow(fdr)
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
    Else
        msgbox("没找到")
    End If
End With