主题：遍历窗口控件的问题

Click:

Dim ck,btm As String '定义名称,列组名,菜单功能区,表名,列名,窗口名,按扭名等
If e.Col.Name = "窗口名称"
    If e.Row("设限类型") ="窗口"
        For Each fm As winform.Form In forms
            ck =ck + "|" + fm.name
        Next
        Tables("表A").Cols("窗口名称").ComboList = ck
    Else
        Tables("表A").Cols("窗口名称").ComboList = ""
    End If
End If
If e.Col.Name = "按扭名"
    If e.Row("设限类型") ="窗口" AndAlso e.Row.Isnull("窗口名称") = False
        Dim fm As String = e.Row("窗口名称")
        Forms(fm).Open()
        For Each bt As WinForm.Control In forms(fm).Controls
            btm =btm + "|" + bt.Name
        Next
        Tables("表A").Cols("按扭名").ComboList = btm
        Forms(fm).Close()
    Else
        Tables("表A").Cols("按扭名").ComboList = ""
    End If
End If

Isy老师：请把实例再发上来，我这边怎么搞都不行,谢谢！

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

点击浏览该文件:窗口控件遍历.rar

这个没有办法,需要窗口预先就在打开状态.

.

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

点击浏览该文件:窗口控件遍历.table

哎！俺想了半天还是没招。不光有你是的主表行对应的问题，还有模式窗口的问题。

 

 

俺自己的做法：全局有个变量，表明是否在设计状态。

                    每个窗口都有一个按钮，设计状态可视，用来遍历窗口按钮组和表、字段

                    用这个按钮来调用窗体属性的设置模块。

 

俺的理念：     这个只有在设计时会用，如果设计周期长的话，前面的早就记不清了，及时更新比较好。

                   权限设置要控制的窗口属性不光按钮，还有表和字段。

                   每个后台数据表对应的前台表可能不止一个，所以还得填写后台的数据表名称，字段名称等，防止误删误改，也要求及时性。