以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口审核  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63083)

--  作者:120785713
--  发布时间:2015/1/13 17:12:00
--  窗口审核

窗口中               绑定销售主表

ComboBox1    销售单号

ComboBox2    业务员

ComboBox3    结算员

CheckCombox1  是送货员工

CheckCombox2  是装货员工

CheckBox1         是否审核

CheckBox2         是否结算

比如CheckBox1 被选中时销售单号和业务员装货员工 不能再编辑

CheckBox2被选中时结算员工和送货员工也不能被编辑

哪位老师帮我看看怎么弄   先谢谢


--  作者:有点甜
--  发布时间:2015/1/13 17:15:00
--  

 编写 CheckBox1  和 CheckBox2 的选中事件,控制区域控件的可用性

 

 比如 e.Form.Controls("CheckCombox1").Enabled = False


--  作者:Bin
--  发布时间:2015/1/13 17:16:00
--  
在CheckBOx1 和Checkbox2 的checkChanged事件分别写上对应的锁定代码

例如 

if e.sender.checked then
  e.form.controls("ComboBox2").enabled=false
else
e.form.controls("ComboBox2").enabled=True
end if

--  作者:120785713
--  发布时间:2015/1/13 17:38:00
--  

If e.sender.checked Then
    e.form.controls("CheckedComboBox1").enabled=False
Else
    e.form.controls("CheckedComboBox1").enabled=True
End If

用按键控制选择框是不是不能触发选择框的属性    为什么进入时是锁定状态    单击反审核 可以编辑是正常的

再单击审核选择框被选中了   还是可以编辑  没有被锁定


--  作者:有点甜
--  发布时间:2015/1/13 17:40:00
--  
 对应的设置值啊,你选择任意一个的时候,对应写能否使用啊
--  作者:120785713
--  发布时间:2015/1/13 17:42:00
--  

不好意思甜老师   我不会写这个代码


--  作者:有点甜
--  发布时间:2015/1/13 17:45:00
--  

都一样,就一句代码啊,写到对应的控件,做对应的设置

 

If e.sender.checked Then
    e.form.controls("ComboBox2").enabled = False
Else
    e.form.controls("ComboBox2").enabled = True
End If

 


--  作者:120785713
--  发布时间:2015/1/14 9:35:00
--  

If e.sender.checked Then
    e.form.controls("CheckedComboBox1").enabled=False
Else
    e.form.controls("CheckedComboBox1").enabled=True
End If

这句代码应该写在选择框的选中属性改变后执行的事件中    不过选择框被选中后并没有执行  有点搞不懂


--  作者:120785713
--  发布时间:2015/1/14 9:57:00
--  

非常感谢老师们的教授   是我在保存按键中的代码有问题  已经搞定了   


--  作者:120785713
--  发布时间:2015/1/17 15:04:00
--  

If e.sender.checked Then
    e.form.controls("ComboBox2").enabled = False
Else
    e.form.controls("ComboBox2").enabled = True
End If

这句代码如果是用在TextBox1的值改变后事件应该怎么改

谢谢老师帮我说明一下  比如说

If TextBox1=“XXX” Then
    e.form.controls("ComboBox2").enabled = False
Else
    e.form.controls("ComboBox2").enabled = True
End If