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

没有啊，我这好好的。

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