VB 中DBLIST 删除记录 问题请教

Question

VB 中DBLIST 删除记录 问题请教 各位老师: 我是VB初学者 有个问题请教 我在一个界面里用了DBLIST 绑定了一个ACCESS数据库里面的一个FORM 这样FORM里面的内容就会全部显示在DBLIST里面.我现在想实现双击其中的一项,然后就会删除我双击的那一项,但问题出来了比如DBLIST里面有如下三行信息 
张三 
李四 
王五
我用了一行代码 
Private Sub DBList2_dblClick()
 If Data2.Recordset.EOF Then 
MsgBox \"没有记录\" 
Beep 
Else 
Data2.Recordset.Delete 
Data2.Refresh 
End If
 End Sub 
但当我双击的时候不管 我双击的那一个比如我双击王五, 但他只会从上到下按顺序删除,他会先删除张三,如果再双击 会删除李四, 我不知道这里的一小段程序应该怎么写,请老师指点一二吧.最好能把全部程序放出来, 因为小弟刚学 如果只放一句 可能会看不太懂 谢谢了.......

Answer 1

我对这个问题不是很懂，所以帮你在CSDN搜索了一下，发现这方面的贴子不是很多，找了个相近的（建议楼主不如换个控件吧）  :)
http://search.csdn.net/Expert/topic/2073/2073425.xml?temp=.245495

Answer 2

谢谢笨笨, 不过那个贴子对我来说没有帮助呀 , 那要想实现在DBLIST中删除mouse双击选中的项目,该怎么样实现呢?而不是让他从第一个删除起?

Answer 3

楼主你按以下方法试试：
Private Sub DBList1_DblClick()
If Data1.Recordset.EOF Then
   MsgBox "没有记录"
   Beep
Else
    Data1.Recordset.FindFirst "xinmin ='" & DBList1.Text & "'"
    Data1.Recordset.Delete
    Data1.Refresh
End If
End Sub
其中，xinmin为绑定字段,我调试了 能成

Answer 4

如 liao5288(陈胜吴广的朋友)所讲那样先找到要删除的记录，然后再删除

Answer 5

关于dblist控件的贴子不是很多，也有楼主这种问题的，很可惜的是都没有人回答，还是建议楼主改操作方向或者另外的控件吧。 :P

Answer 6

楼主 问题还没有解决吗？昨天休假，今天才来，你的问题我调试过了，如果还是不能删除你指定的记录就表示：Data1.Recordset.FindFirst "xinmin ='" & DBList1.Text & "' 这一句你写的有错，请仔细核查，只要没有错,它会将你指定的这条记录变为当前记录,因为delete语句只删除当前记录.如果还是不能解决，留E-mail给我,我发实例和源代码给你！