页面集合 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 页面集合

共有2268人关注过本帖树形打印复制链接主题：页面集合

qaz17909

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：802 积分：9099 威望：0 精华：0 注册：2017/1/26 14:38:00

页面集合

Post By：2018/11/19 23:19:00 [只看该作者]

页面集合，遍历某个页面的所有控件不可用，如何写代码

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/19 23:26:00 [只看该作者]

For Each c As WinForm.Control In e.Form..Controls("TabControl1").TabPages(1).Children

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

qaz17909

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：802 积分：9099 威望：0 精华：0 注册：2017/1/26 14:38:00

Post By：2018/11/20 20:59:00 [只看该作者]

好像不行，我的代码如下，当不是经理的时候，第一个页面的表格和所有按钮不可用，我的代码哪里有问题

窗口afterload事件

Dim t1 As Table = e.Form.Controls("Table1").Table

If User.IsRole("经理") Then

Return

Else

t1.AllowEdit = False

For Each c1 As WinForm.Control In e.Form.Controls("TabControl1").TabPages(0).Children

If Typeof c1 Is WinForm.Button Then

c1.Enabled = False

End If

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/20 21:20:00 [只看该作者]

代码我测试没有问题。请上传实例说明

qaz17909

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：802 积分：9099 威望：0 精华：0 注册：2017/1/26 14:38:00

Post By：2018/11/20 23:15:00 [只看该作者]

我知道了，我的控件是放在分区面板里面的，所以无效，只要放在分区面板外即可。请问如果是针对页面中的分区面板内的控件，怎么写代码

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/21 8:55:00 [只看该作者]

以下是引用qaz17909在2018/11/20 23:15:00的发言：
我知道了，我的控件是放在分区面板里面的，所以无效，只要放在分区面板外即可。请问如果是针对页面中的分区面板内的控件，怎么写代码

那就遍历分区面板，如

Dim sp As WinForm.SplitContainer = e.Form.controls("SplitContainer1")
For Each c As object In sp.Panel1.Children
msgbox(c.name)
Next
For Each c As object In sp.Panel2.Children
msgbox(c.name)
Next

下一主题 >> << 上一主题

主题：页面集合