我为什么不能删除部门呢？

fl_ss1

我在部门框里设置双击鼠标可以删除部门，可是总是不行

请高人帮我把代码完善一下吧，不胜感激！

有个小小要求，希望能把注释加上。

一点通

将这两句修改一下,红色部分

    If MsgBox("真的要删除" & Trim(Me.列表7.Column(1)) & "吗？", vbQuestion + vbYesNo + vbDefaultButton2, "警告！") = vbYes Then
        Set cn = CurrentProject.Connection
        sql = "select * from 部门表 where dept='" & Me.列表7.Column(1) & "'"

注:Column 0代表第一列,1代表第二列

wuaza

    If MsgBox("真的要删除" & Trim(Me.列表7.Column(2)) & "吗？", vbQuestion + vbYesNo + vbDefaultButton2, "警告！") = vbYes Then
        Set cn = CurrentProject.Connection
        sql = "delete * from 部门表 where dept='" & Me.列表7 & "'"
        cn.Execute sql
        Set cn = Nothing
        Me.列表7.Requery
    End If
把绑定列改为第2列。

[此贴子已经被作者于2006-5-13 19:42:30编辑过]