最大值最小值，自定义表格式样式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 最大值最小值，自定义表格式样式

共有2217人关注过本帖树形打印复制链接主题：最大值最小值，自定义表格式样式

天宇科技

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

等级：一尾狐帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00

最大值最小值，自定义表格式样式 发帖心情

Post By：2020/6/15 16:17:00 [只看该作者]

我想在评委1-评委7的评分中，在每行中找到最大值和最小值，分别用自定义样式 e.Style = "最大值" ，e.Style = "最小值"，显示出来，请问应该怎样弄

If e.Col.Name.Contains("评委") Then

Dim min As Double = 99999

Dim max As Double

For Each dc As Col In e.Table.Cols

If dc.Name.Contains("评委") Then

If e.Row(dc.Name) > max Then

e.Style = "最大值"

If e.Row(dc.Name) < min Then

e.Style = "最小值"

End If

天宇科技

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

等级：一尾狐帖子：472 积分：4025 威望：0 精华：0 注册：2018/5/13 15:18:00

Post By：2020/6/15 19:36:00 [只看该作者]

蓝版，能回复下吗

有点蓝

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

等级：超级版主帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/15 20:17:00 [只看该作者]

不是已经有最大值和最小值列了吗？直接判断不就行了

If e.Col.Name.Contains("评委") Then

If e.Row(e.Col.Name) = e.Row(“最大值”)Then

e.Style = "最大值"

End If

If e.Row(e.Col.Name) = e.Row(“最小值”)Then

e.Style = "最小值"

End If

主题：最大值 最小值，自定义表格式样式