使用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()