以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  找到最大行号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=116010)
--  作者：nxqtxwz
--  发布时间：2018/3/18 18:13:00
--  找到最大行号

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

With CurrentTable
    Dim r As String

    r = .FindRow("[编号] = \'max\'") \'从第一行开始查找
    If r >= 0 Then \'如果找到的话
        .Position = r \'定位到找到的行.
    End If
End With
--  作者：有点甜
--  发布时间：2018/3/18 19:54:00
--  

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