主题：老大请进，遍历控件问题，为何报错？

老大，帮我看下，下面这段遍历代码报错。

For Each f As WinForm.Form In Forms
    For Each fc As WinForm.Control In f.Controls
        If Typeof fc Is WinForm.Button Then
            Dim fct As WinForm.Button = fc
            output.show(fct.name)
        End If
    Next
Next

 

貌似语法上没什么问题呀

此主题相关图片如下：screenshot31.jpg

看不出问题，做个简单例子上来看看

Dim fct As WinForm.Button = fc '这句有问题吧，应当去掉这句。

For Each f As WinForm.Form In Forms
    If f.Opened Then
        For Each fc As WinForm.Control In f.Controls
            If Typeof fc Is WinForm.Button Then
                Dim fct As WinForm.Button = fc
                output.show(fct.name)
            End If
        Next
    End If
Next

 

必须打开的窗口才可以遍历控件吗

 

For Each f As WinForm.Form In Forms
output.show(f.name)
Next

 

遍历项目中的所有窗口就没有问题，这时候窗口并不都是打开的呀

窗口不打开，窗口就没有生成，也就是窗口本身就不存在，谈什么遍历其中的控件啊

有没有其他方法，比如我想实现 将所有窗口的控件进行权限分配，所以要遍历窗口控件，有没有一次性向表中增加这些控件的方法，只是不想一个一个录入罢了。

没有办法，只能在窗口的AfterOpenProject事件设置代码

老大请看附件，能否一次性向表C 中添加关于窗口F01的数据信息,然后由F01窗口调用？

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

点击浏览该文件:管理项目35.foxdb

没有办法一次性，只能逐个窗口设置AfterLoad事件