以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  排序问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187165)

--  作者:刘林
--  发布时间:2023/6/27 22:20:00
--  排序问题

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20230627222147.png
图片点击可在新窗口打开查看

老师:我有这需要就是找到23春中考列后,判断将分数线排序,依据从高到低取得列名和值。

--  作者:有点蓝
--  发布时间:2023/6/27 22:29:00
--  
dim dr as  datarow = datatables("xxx").find(.........
if dr isnot nothing then
Dim lst As new SortedDictionary(of double,String)
for each dc as datacol in datatables("xxx").datacols
if dc.name <> "考试名称"
lst.add(dr(dc),dc.name)
end if
next
for each key as string in lst.keys
output.show(key & "=" & lst(key))
next
end if

--  作者:刘林
--  发布时间:2023/6/27 22:46:00
--  
很好,哪个是进行排序的,现在是由低到高,我要由高到低呢
--  作者:有点蓝
--  发布时间:2023/6/28 8:35:00
--  
倒序取值即可
--  作者:刘林
--  发布时间:2023/6/28 9:45:00
--  
如何倒序取值,帮助中没找到相关的,请指导下呢
--  作者:有点蓝
--  发布时间:2023/6/28 10:21:00
--  
http://www.foxtable.com/webhelp/topics/0225.htm

For i As Integer = lst.Keys.Count - 1 To 0 Step - 1
    Output.Show(lst.Keys(i))
Next 

--  作者:刘林
--  发布时间:2023/6/28 14:23:00
--  
怎么取对应的列标名呢
--  作者:有点蓝
--  发布时间:2023/6/28 14:43:00
--  
lst(lst.Keys(i))
--  作者:刘林
--  发布时间:2023/6/28 14:44:00
--  
哦,谢谢