主题：找到最大行号

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