使用EXCEL中的Listview控件显示Access表中的纪录

使用EXCEL中的Listview控件显示Access表中的纪录

Private Sub cmdDelete_Click()                                           '删除指定纪录按钮
Dim i As Integer
     For i = Me.ListView1.ListItems.Count To 1 Step -1     '循环选定记录
        If Me.ListView1.ListItems(i).Selected Then
            Me.ListView1.ListItems.Remove i
        End If
    Next i
End Sub

Private Sub CmdListView_Click()                                      '调用Listview控件按钮
On Error Resume Next                                                        '避免 index of bounds  语句
  Application.ScreenUpdating = False                              '禁止屏幕更新
  ListView1.ListItems.Clear                                                '清空纪录
  Dim i As Integer
  Dim CNN As New ADODB.Connection
  Dim RST As New ADODB.Recordset
  Dim stpath, strSQL As String
  Dim ITM As ListItem
   ListView1.ColumnHeaders.Add 1, , "numb