以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  集合能排序吗  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=29110)

--  作者:lsfdf
--  发布时间:2013/2/27 20:14:00
--  集合能排序吗
集合能排序吗,有个日期集合,我想取最大日期,该如何写呢
--  作者:程兴刚
--  发布时间:2013/2/27 20:24:00
--  

能!

 

Dim Lst As New List(Of String)
Lst.Add( "电视机")
Lst.Add("洗衣机")
Lst.Add("电冰箱")
lst.Sort \'对集合内的各值进行排序
For i As Integer = 0 To lst.Count - 1
    Output.show(lst(i))
Next


--  作者:hbhb
--  发布时间:2014/9/19 0:17:00
--  
谢谢!请问指定排序如何搞(”张飞“,”赵云“,”刘邦“)改成(”刘邦“,”赵云“,”张飞“)?
--  作者:程兴刚
--  发布时间:2014/9/19 0:21:00
--  

既然能指定,那就重新建立集合值!按照顺序添加即可!


--  作者:hbhb
--  发布时间:2014/9/19 0:33:00
--  
现在的情况是从某一列获取值的时候,有可能没有某个值,如果三人全,按(”刘邦“,”赵云“,”张飞“)排列,不全也按此顺序排列,空值不显示,如何搞?
--  作者:程兴刚
--  发布时间:2014/9/19 0:40:00
--  

我说的就是这个意思,根据排序指定内容逐个判断,有则新增一个值,无则跳过,自然就是您的自定义排序了!


--  作者:hbhb
--  发布时间: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
Next
For i2 As Integer = 0 To lst.Count - 1
    Select Case lst(i2)
  Case "电冰箱"
  lst1.add("电冰箱")
End Select
Next
For i3 As Integer = 0 To lst.Count - 1
    Select Case lst(i3)
  Case "电视机"
  lst1.add("电视机")
End Select
Next

For i1 As Integer = 0 To lst1.Count - 1
    Output.show(lst1(i1))
Next

--  作者:有点甜
--  发布时间:2014/9/19 9:10:00
--  
 你排序规则是什么,根据什么排序,这个必须指定
--  作者:程兴刚
--  发布时间:2014/9/19 10:06:00
--  

回7楼:

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=57150