[已解决]窗体名次排列

没事

根据名次排列.zip (44.89 KB, 下载次数: 21)

2013-6-30 09:07 上传

点击文件名下载附件
谢谢大家！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-6-30 09:29

1. Private Sub CommandButton1_Click()
   
2.     Dim k As Long
   
3.     Dim strTemp As String
   
4.     Dim i As Long
   
5.     Dim j As Long
   
6. 
   
7.     With ListView1
   
8.         For i = .ListItems.Count To 1 Step -1
   
9.             If .ListItems(i).SubItems(8) Like "[1-8]" Then
   
10.                 k = .ListItems(i).SubItems(8)
    
11.                 If i <> k Then
    
12.                     strTemp = .ListItems(i).Text
    
13.                     .ListItems(i).Text = .ListItems(k).Text
    
14.                     .ListItems(k).Text = strTemp
    
15.                     For j = 1 To .ColumnHeaders.Count - 1
    
16.                         strTemp = .ListItems(i).SubItems(j)
    
17.                         .ListItems(i).SubItems(j) = .ListItems(k).SubItems(j)
    
18.                         .ListItems(k).SubItems(j) = strTemp
    
19.                     Next
    
20. 
    
21.                 End If
    
22.             End If
    
23.         Next
    
24.     End With
    
25. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim k As Long
   
3.     Dim strTemp As String
   
4.     Dim i As Long
   
5.     Dim j As Long
   
6. 
   
7.     With ListView1
   
8.         For i = .ListItems.Count To 1 Step -1
   
9.             If .ListItems(i).SubItems(8) Like "[1-8]" Then
   
10.                 k = .ListItems(i).SubItems(8)
    
11.                 If i <> k Then
    
12.                     strTemp = .ListItems(i).Text
    
13.                     .ListItems(i).Text = .ListItems(k).Text
    
14.                     .ListItems(k).Text = strTemp
    
15.                     For j = 1 To .ColumnHeaders.Count - 1
    
16.                         strTemp = .ListItems(i).SubItems(j)
    
17.                         .ListItems(i).SubItems(j) = .ListItems(k).SubItems(j)
    
18.                         .ListItems(k).SubItems(j) = strTemp
    
19.                     Next
    
20. 
    
21.                 End If
    
22.             End If
    
23.         Next
    
24.     End With
    
25. End Sub

复制代码

hwc2ycy

LISTVIEW里好像没有MOVE之类的方法，只有循环挪位了

没事

hwc2ycy 发表于 2013-6-30 09:29

请问老师： 是否先提取名次，然后再排序！谢谢！

hwc2ycy

你可以自己试下。

dongqing1998

不用那么麻烦，listview控件本身就有排序功能

1. Private Sub CommandButton1_Click()
   
2.    With ListView1
   
3.       .Sorted = True
   
4.       .SortKey = 7
   
5.       .SortOrder = 1
   
6.    End With
   
7. End Sub

复制代码

hwc2ycy

dongqing1998 发表于 2013-7-1 17:53
不用那么麻烦，listview控件本身就有排序功能

这个排序是文本排序的吧？