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

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

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

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

 

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

 

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

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

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

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

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