关于listview的一些问题？？

Question

初学会用listview，但是还有很多不明白，请各位高手指教！
1、怎样用一个命令按钮使listview的各条记录都被选中，即"全选"，用什么属性？
2、在listview中怎样实现点击表头字段就自动进行排序？？
3、在listview中显示的是查询的结果，我现在想把listview中选中的结果再导出，应该用什么方法啊，是否有vbchecked的属性啊//

Answer 1

全选:
Private Sub Command1_Click()
Dim i As Integer
    ListView1.MultiSelect = True
    For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems(i).Selected = True
    Next
End Sub

Answer 2

还要将属性MultiSelect设为True将Sorted设为True后
在事件ColumnClick中可实现排序
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   ListView1.SortKey = ColumnHeader.Index+1
End Sub导数据出来要遍历一把
With ListView1.ListItems
    For I = 1 To .Count
        If .Item(I).Selected Then
            导出
        End If
    Next
End With
Next

Answer 3

1.
Private Sub Command1_Click()
Dim i As Integer
    ListView1.CheckBoxes = True
    For i = 1 To ListView1.ListItems.Count
        ListView1.ListItems(i).Checked = True
    Next
End Sub
2.
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)    If ListView1.ListItems.Count > 0 Then
        ListView1.SortKey = ColumnHeader.Index - 1
        ListView1.SortOrder = Abs(Not ListView1.SortOrder = lvwDescending)
        Call ListView1.SelectedItem.EnsureVisible
    End If
    
End Sub
3.導出到哪呢?

Answer 4

我想写如vf数据库中，我想用addnew方法，不知道有没有更好的方法？

Answer 5

第一个问题和第二个问题我已经解决了，谢谢大家了！！
第三个问题我觉得有点麻烦，因为我是从sql中查询出记录在listview显示，而我又需要在这基础上对这些记录进行选择，部分导入vf中，我想用addnew的办法，不知道能不能实现啊？？