listview 选中某行，上移或是下移

1588078/37

740688321 发表于 2019-7-12 14:32
只能麻烦，没有捷径。

那也只有这样了，

1588078/37

740688321 发表于 2019-7-12 14:32
只能麻烦，没有捷径。

比如要上移 把上一行位置的行，存储至一维数组，， 替换成选中的行，再把一维数组的数据存到选中行呢？
能实现不

1588078/37

1. With Me.ListView3
   
2. If .ListItems.Count = 0 Then
   
3. MsgBox "无任何数据"
   
4. Exit Sub
   
5. End If
   
6. hh = ListView3.SelectedItem.Index
   
7. If hh = 1 Then
   
8. MsgBox "已至首行"
   
9. Exit Sub
   
10. End If
    
11. col = .ColumnHeaders.Count - 1
    
12. ReDim arr(1 To col + 1)
    
13.          For j = 1 To col
    
14.          arr(j) = .ListItems(hh - 1).SubItems(j)
    
15.          Next
    
16.      For j = 1 To col
    
17.    .ListItems.Item(hh - 1).SubItems(j) = .ListItems.Item(hh).SubItems(j)
    
18.     Next
    
19.     For j = 1 To col
    
20.     .ListItems(hh).SubItems(j) = arr(j)
    
21.     Next
    
22.    
    
23. End With

复制代码

自己已经解决