- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 这段代码频繁报错，不断的闪？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105676)
-- 发布时间：2017/8/23 23:11:00
-- 这段代码频繁报错，不断的闪？
老师，这段代码怎么修改，我把这段代码写在窗口的TimeTrick，但频繁的闪，说找不到“数据查询”控件？
If User.Roles<>"***" Or User.Roles = " " Then
e.Form.controls("数据查询").enabled = False
e.Form.controls("搜索").enabled = False
Else
e.Form.controls("数据查询").enabled = True
e.Form.controls("搜索").enabled = True
End If
-- 发布时间：2017/8/23 23:46:00
--
你控件的名称叫什么？你的名字肯定没写对。
-- 发布时间：2017/8/24 10:53:00
--
控件名称也对了，只不过这个按钮控件名称我作为标准控件插入到窗口菜单中了。
-- 发布时间：2017/8/24 10:59:00
--
以下是引用scofields在2017/8/24 10:53:00的发言：
控件名称也对了，只不过这个按钮控件名称我作为标准控件插入到窗口菜单中了。
控件名称也对了，只不过这个按钮控件名称我作为标准控件插入到窗口菜单中了。
贴出你写的代码，你如何添加到菜单的？或者做个例子发上来看看。
-- 发布时间：2017/8/24 14:25:00
--
窗口引入标准控件：
e.Form.Strips("工具栏2").Items.InsertControl("hh",e.Form.Controls("搜索"),4)
e.Form.Strips("工具栏2").Items.InsertControl("hh3",e.Form.Controls("数据查询"),7)
窗口TimeTrick事件:
If User.Roles<>"***部门" Or User.Roles = " " Then
e.Form.controls("数据查询").enabled = False
e.Form.controls("搜索").enabled = False
Else
e.Form.controls("数据查询").enabled = True
e.Form.controls("搜索").enabled = True
End If
-- 发布时间：2017/8/24 14:28:00
--
这是控件名称，
此主题相关图片如下：2222.png
[此贴子已经被作者于2017/8/24 14:29:18编辑过]
-- 发布时间：2017/8/24 14:43:00
--
测试了一下，代码没问题。看你是否在名称那里多些了空格。
或者做个例子发上来测试。