- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 逻辑列取消需要输入密码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95340)
-- 发布时间：2017/1/17 11:06:00
-- 逻辑列取消需要输入密码问题
此主题相关图片如下：qq截图20170117110136.png
各位老师，为防止误操作将原来选中的点击取消选中。我想，这几个逻辑列在选中时不需要输入密码，如果想取消选中则必须输入密码111，代码怎么写。请各位老师帮忙。
-- 发布时间：2017/1/17 11:15:00
--
DataColChanging事件
If e.DataCol.name = "第六列" Then
If e.NewValue = False Then
Dim pwd As String
InputPassWord(pwd,"提示","请输入密码:")
If pwd <> "123" Then
msgbox("密码错误,不能修改")
e.cancel = true
end if
End If
End If
-- 发布时间：2017/1/17 14:24:00
--
非常感谢有点色老师，我照着你的改了一下，已解决。
If e.DataCol.name = "服务费结清" OrElse e.DataCol.name = "高开结清" OrElse e.DataCol.name = "返利结清" Then
If e.NewValue = False Then
Dim pwd As String
InputPassWord(pwd,"提示","请输入密码(123):")
If pwd <> "123" Then
msgbox("密码错误,不能修改")
e.cancel = True
End If
End If
End If