-- 作者:狐狸爸爸
-- 发布时间: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)
|