Foxtable(狐表)用户栏目专家坐堂 → 排序问题


  共有4054人关注过本帖树形打印复制链接

主题:排序问题

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/28 8:35:00 [显示全部帖子]

倒序取值即可

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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 

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/28 14:43:00 [显示全部帖子]

lst(lst.Keys(i))

 回到顶部