能否为动态窗体加上我想要的删除功能

w8899

找了很多的代码测试都没成功。请大家帮忙。谢谢

w8899

没人帮我了吗？？？？？？？

蓝桥玄霜

请见代码。

w8899

蓝桥玄霜 发表于 2018-10-8 13:07
请见代码。

For Each sel In ListView1.ListItem  方法和成员没找到(前面鼐少输入了个S   但是执行到这个位置也出现错误     .Selected
谢谢老师，你这样是让我敲代码，好记，增加印像，但是我学这个是兴趣。
多一个少一个都 有问题，抄代码都 能少一两个字母。完整代码 如下：
Private Sub CommandButton19_Click()
Dim sel As ListItem, n%
n = 1
For Each sel In ListView1.ListItems
n = n + 1
If sel.Selected Then
s = s & n & ","
End If
Next
aa = Split(s, ",")
For i = UBound(aa) - 1 To 0 Step -1
Sheet16.Rows(aa(i)).Delete
Next
End Sub
老师！但是新的问题又来了，当删除 数据时，ListView1框里的数据还存在，工作表上的到删除 了，就是不能同步，
能不能执行删除 时同步刷新框内的数据？
网上找呀找，找了个代码两样都 能行，代码 如下：Private Sub CommandButton19_Click()

  With ListView1
        If Not .SelectedItem Is Nothing Then
            Rows(.SelectedItem.Index + 1).EntireRow.Delete '删除ListView1中选中条目对应在工作表中的条目
            .ListItems.Remove .SelectedItem.Index '删除listview选中条目
        End If
    End With
End Sub

但是还有个问题就是保存数据 时点击保存框内不自动刷新，不显示添加了的数据，别外老师同，这个代码不一样但都能达到一样的功能是什么原因？

w8899

蓝桥玄霜 发表于 2018-10-8 13:07
请见代码。

关于点击保存时不能在框内同步显示的问题，我想了个笨办法，就是在保存代码 下添加关闭窗体再启动窗体就能显示了，

蓝桥玄霜

w8899 发表于 2018-10-8 13:13
For Each sel In ListView1.ListItem  方法和成员没找到(前面鼐少输入了个S   但是执行到这个位置也出现 ...

自己少抄一句代码也不知道。唉。