以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问如何横向取最高值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=17399)

--  作者:一步一步一步
--  发布时间:2012/3/12 16:52:00
--  请问如何横向取最高值

请问横向取最高值,该如何写表达式。


图片点击可在新窗口打开查看此主题相关图片如下:qq截图未命名.png
图片点击可在新窗口打开查看

--  作者:程兴刚
--  发布时间:2012/3/12 17:25:00
--  
用代码好办一点!
--  作者:y2287958
--  发布时间:2012/3/12 18:40:00
--  
这样行不行
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.table


--  作者:布莱克朱
--  发布时间:2012/3/12 20:19:00
--  
表达式?牛!
--  作者:布莱克朱
--  发布时间:2012/3/12 20:29:00
--  
http://www.datasoft.com.cn/dispbbs.asp?BoardID=2&ID=16597&skin=0  看看这个
--  作者:一步一步一步
--  发布时间:2012/3/14 9:01:00
--  

谢谢,我又加了一列,写的表达式巨长

因为不会用代码

[此贴子已经被作者于2012-3-14 9:02:05编辑过]

--  作者:blackzhu
--  发布时间:2012/3/14 10:15:00
--  

Select Case e.DataCol.Name
    Case "第四列","第二列","第一列","第三列"
        Dim r As DataRow = e.DataRow
        Dim V As Double = r("第一列")
        For Each cl As DataCol In e.DataTable.DataCols
            If r(cl) > v Then
                v = r(cl)
            End If
        Next
        e.DataRow("最大值") = V
End Select

 

DataColChanged   表属性的这个执行!