请教逛逛大师 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教逛逛大师

共有3458人关注过本帖树形打印复制链接主题：请教逛逛大师

hbhb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

请教逛逛大师 发帖心情

Post By：2015/1/3 12:54:00 [只看该作者]

大师：您好！

见实例，请问如何定位到数值最大的行

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.zip

逛逛

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2015/1/3 13:29:00 [只看该作者]

用Compute遍历列的最大值进行对比

获取最大值的列名和值

定位行

lsy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2015/1/3 15:17:00 [只看该作者]

Click

Dim max As Double

Dim s As String

For Each r As Row In e.Table.Rows

For Each c As Col In e.Table.Cols

If r.IsNull(c.Name) = False AndAlso Val(r(c.Name)) > max Then

max = Val(r(c.Name))

s = r.Index & "|" & c.Index

End If

e.Table.Select(s.Split("|")(0),s.Split("|")(1))

逛逛

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2015/1/3 15:35:00 [只看该作者]

感觉应该尽量避免循环嵌套

如果没有删选的话，直接统计列会更好一点

Dim dt As DataTable = DataTables("表A")
Dim dcName As String = ""
Dim iint As Double = 0
Dim i As Double = 0
For Each dc As DataCol In dt.DataCols
    If dc.IsNumeric Then
        i = dt.Compute("Max(" & dc.Name & ")")
        If i>iint Then
            dcName = dc.Name
            iint = i
        End If
    End If
Next
If dcName > "" Then
    Tables("表A").Position = Tables("表A").FindRow(dcName & "=" & iint)
End If

hbhb

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2015/1/4 10:51:00 [只看该作者]

谢谢！两位大师。

下一主题 >> << 上一主题

主题：请教逛逛大师