以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何判断同行中最大值的列,并显示出该列名  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16597)

--  作者:xiaoqiwei
--  发布时间:2012/2/18 13:32:00
--  请问如何判断同行中最大值的列,并显示出该列名

请问老大如何判断同一行中最大值的列,并显示出该列名

 


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

--  作者:狐狸爸爸
--  发布时间:2012/2/18 13:49:00
--  

Dim r as row = Tables("xxx").Rows(0)

dim v as double = r ("第一列")

dim mc as string = "第一列"

Dim nms() as string  = {“第一列", "第二列","第三列"}

For each nm as string in nms

     if r(nm) > v then

         v= r(nm)

         mc = nm

     end if

next 

output.Show(mc)