主题：窗口审核

窗口中               绑定销售主表

ComboBox1    销售单号

ComboBox2    业务员

ComboBox3    结算员

CheckCombox1  是送货员工

CheckCombox2  是装货员工

CheckBox1         是否审核

CheckBox2         是否结算

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

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

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

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

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

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

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

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

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

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

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

我这样做的老师帮我看一下错在哪里:

全局变量

变量名称       变量类型    初始值

Vars("V")       String       空

 

ValueChanged

If Vars("V")=_ Username Then
MessageBox.Show( "1")

Else
  MessageBox.Show("2")
End If

 

Enter

Vars("V")=e.sender.text

谢谢老师帮我看一下  什么原因  怎么改都不对

 

 

 

你写的    某值  我那里是  当前操作员   我用的是外部用户表  _Username

If e.Sender.Text = "某值" Then
    e.form.controls("ComboBox2").enabled = False
Else
    e.form.controls("ComboBox2").enabled = True
End If

 

也就是说 当前    If Vars("V")=_ Username Then  判断编辑者是不是当前操作员  决定ComboBox2当前造作员是否可以编辑

谢谢