在listview中删除选中行的问题
第一:用以下代码实现,但是不能删除第一行的数据
Private Sub Cmd_Del_Click()On Error Resume NextMsgBox lvSet.SelectedItem.IndexIf lvSet.SelectedItem.Index <> 1 Then lvSet.ListItems.Remove (lvSet.SelectedItem.Index)End IfEnd Sub
Private Sub Cmd_Del_Click()On Error Resume Next'lvSet.SelectedItem.Selected = FalseMsgBox lvSet.SelectedItem.SelectedIf lvSet.SelectedItem.Selected = True Then lvSet.ListItems.Remove (lvSet.SelectedItem.Index)End IfEnd Sub