Office中国论坛/Access中国论坛

标题: 我为什么不能删除部门呢？ [打印本页]

作者: fl_ss1 时间: 2006-5-14 02:01
标题: 我为什么不能删除部门呢？
[attach]17734[/attach]

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

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

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

作者: 一点通 时间: 2006-5-14 03:31
将这两句修改一下,红色部分

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 时间: 2006-5-14 03:42
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编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)