以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教求行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92609)
--  作者：hbhb
--  发布时间：2016/11/8 12:13:00
--  请教求行
大师：见实例
如何求出表a中是数字且最大的行号？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目26.zip
--  作者：hbhb
--  发布时间：2016/11/8 12:48:00
--  
效率最高的代码是什么？表格比较大？
--  作者：wyz20130512
--  发布时间：2016/11/8 13:09:00
--  
Dim t As Table = Tables("XXX")
Dim max_ As Double =  t.DataTable.Compute("Max(XX)")
Dim dr As DataRow = t.DataTable.Find("[XX] = " & max_)
If dr IsNot Nothing Then
    Dim p As Integer = t.FindRow(dr)
    If p > -1 Then
        t.Position = p \'选定此行
        Output.Show(p+1) \'输出行号
    End If
End If

修改表名和列名即可.
[此贴子已经被作者于2016/11/8 13:17:35编辑过]
--  作者：hbhb
--  发布时间：2016/11/8 13:33:00
--  
谢谢！不知道在哪一列，不还是要遍列列吗？
--  作者：wyz20130512
--  发布时间：2016/11/8 13:57:00
--  
是的,遍历所有的数值列,获取最大的一个数值.

代码稍作修改即可.