集合能排序吗 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 集合能排序吗

共有5035人关注过本帖树形打印复制链接主题：集合能排序吗

hbhb

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：5055 积分：13047 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/9/19 0:17:00 [显示全部帖子]

谢谢！请问指定排序如何搞（”张飞“，”赵云“，”刘邦“）改成（”刘邦“，”赵云“，”张飞“）？

hbhb

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：5055 积分：13047 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/9/19 0:33:00 [显示全部帖子]

现在的情况是从某一列获取值的时候，有可能没有某个值，如果三人全，按（”刘邦“，”赵云“，”张飞“）排列，不全也按此顺序排列，空值不显示，如何搞？

hbhb

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：狐神帖子：5055 积分：13047 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2014/9/19 0:56:00 [显示全部帖子]

请教简易代码？

Dim Lst As New List(Of String)

Lst.Add( "电视机")

Lst.Add("洗衣机")

Lst.Add("电冰箱")

Dim Lst1 As New List(Of String)

For i As Integer = 0 To lst.Count - 1

Select Case lst(i)

Case "洗衣机"

lst1.add("洗衣机")

End Select

For i2 As Integer = 0 To lst.Count - 1

Select Case lst(i2)

Case "电冰箱"

lst1.add("电冰箱")

End Select

For i3 As Integer = 0 To lst.Count - 1

Select Case lst(i3)

Case "电视机"

lst1.add("电视机")

End Select

For i1 As Integer = 0 To lst1.Count - 1

Output.show(lst1(i1))

主题：集合能排序吗