以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] Button1点击事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95461)

--  作者:abc2363360
--  发布时间:2017/1/20 11:51:00
--  [求助] Button1点击事件

窗口有两个控件

ComboBox1

Button1

 

Button1点击事件:点击后

如果 Button1标题为 锁定

       Button1标题修改为“解锁”

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

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

       Button1标题修改为“锁定”

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

 

 

麻烦大神帮忙写写代码。


--  作者:有点色
--  发布时间:2017/1/20 12:02:00
--  

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编辑过]

--  作者:abc2363360
--  发布时间:2017/1/20 14:49:00
--  [求助] Button1点击事件

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

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

再次麻烦大神帮忙。


--  作者:有点色
--  发布时间:2017/1/20 14:59:00
--  

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目15.table


 


--  作者:abc2363360
--  发布时间:2017/1/20 15:54:00
--  [求助] Button1点击事件
关闭项目再重新打开又可以编辑了,还能再优化一下?
--  作者:有点色
--  发布时间:2017/1/20 15:55:00
--  

 用这个方式存放值

 

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