[已解决]如何删除窗体内任意一条数据

c888

如何删除窗体内任意一条数据.rar (22.6 KB, 下载次数: 29)

2012-12-14 15:12 上传

点击文件名下载附件
      加载窗体后，选定窗体ListView1框内任意一条数据，点击“删除”键将其删除！不知这种效果能否达成。谢谢大师们的指教！谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-15 02:14

1. Private Sub CommandButton1_Click()
   
2.     Dim jsxm$
   
3.     With Me.ListView1
   
4.         jsxm = .SelectedItem.Text
   
5.         .ListItems.Remove .SelectedItem.Index
   
6.     End With
   
7.     With Worksheets("3")
   
8.         If Not .Range("a:a").Find(jsxm, , LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
   
9.             .Range("a:a").Find(jsxm, , LookIn:=xlValues, lookat:=xlWhole).EntireRow.Delete
   
10.             MsgBox "删除成功"
    
11.         End If
    
12.     End With
    
13. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

这个不难呀，LISTVIEW就有删除的方法。

hwc2ycy

1. Me.ListView1.ListItems.Remove (Me.ListView1.SelectedItem.Index)

复制代码

c888

hwc2ycy 发表于 2012-12-14 20:18

谢谢hwc2ycy 师，ListView1框内的数据可以删除，但表3对应的数据无法同时删除。请给予指导。谢谢！

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Dim jsxm$
   
3.     With Me.ListView1
   
4.         jsxm = .SelectedItem.Text
   
5.         .ListItems.Remove .SelectedItem.Index
   
6.     End With
   
7.     With Worksheets("3")
   
8.         If Not .Range("a:a").Find(jsxm, , LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
   
9.             .Range("a:a").Find(jsxm, , LookIn:=xlValues, lookat:=xlWhole).EntireRow.Delete
   
10.             MsgBox "删除成功"
    
11.         End If
    
12.     End With
    
13. End Sub

复制代码