主题：[求助] Button1点击事件

窗口有两个控件

ComboBox1

Button1

 

Button1点击事件：点击后

如果 Button1标题为 锁定

       Button1标题修改为“解锁”

       ComboBox1不允许编辑，关闭窗口再打开也不允许编辑

如果 Button1标题为 解锁       且   Button1标题为 解锁时只允许用户1和用户2点击

       Button1标题修改为“锁定”

       ComboBox1允许编辑，关闭窗口再打开也不允许编辑

 

 

麻烦大神帮忙写写代码。

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

问题1、当前窗口打开时是可以锁定不让编辑了，但是关闭窗口重新打开后ComboBox1又可以编辑了，并且Button1标题还是显示解锁

问题2、Button1标题为 解锁时只允许用户1和用户2点击 这个代码未写。

再次麻烦大神帮忙。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目15.table

 

关闭项目再重新打开又可以编辑了，还能再优化一下？

 用这个方式存放值

 

http://www.foxtable.com/webhelp/scr/1544.htm