AfterLoad事件
If vars("锁定") = false Then
e.Form.Controls("Button1").Text = "锁定"
Else
e.Form.Controls("Button1").Text = "解锁"
End If
e.form.controls("ComboBox1").Enabled = not vars("锁定")
Button1Click事件
vars("锁定") = not vars("锁定")
If vars("锁定") = true Then
e.Sender.Text = "解锁"
e.form.controls("ComboBox1").Enabled = false
Else
e.Sender.Text = "锁定"
e.form.controls("ComboBox1").Enabled = true
End If
[此贴子已经被作者于2017/1/20 12:03:25编辑过]