Question

VB中如何删除一项

Private Sub Command6_Click()
If List1.ListIndex <> -1 Then
If MsgBox("确认要删除本条信息!", vbYesNo + vbQuestion, 标题) = vbYes Then
List1.RemoveItem List1.ListIndex
End If
End If
End Sub
我在List中选定了项目，然后删除了，但是在我添加新项目的时候，之前删除项目的又出现了，这是怎么回事呢？求大神

Answer 1

那只能说明 你添加的项目内容和删除的一样

追问

不是一样的

追答

Private Sub Command1_Click()

If List1.ListIndex -1 Then
If MsgBox("确认要删除本条信息!", vbOKCancel + vbQuestion, 标题) = vbOK Then
List1.RemoveItem List1.ListIndex
End If
End If

End Sub

Private Sub Command2_Click()
List1.AddItem Now
End Sub

你试试吧

肯定是你添加相同内容

Answer 2

主铅隐要的是雹虚看你怎么添加进去的，你槐肆厅如果是使用数据库内容添加进来的，那就要同时数据库内容才行，要不然，再读出来就会有了

追问

这个是添加程序，是不是这个有问题呢？麻烦了，谢谢！