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

窗口AfterLoad事件代码：

Dim n As Integer = 0
If Tables("表C").Rows.Count < 1
    Tables("表C").AddNew()
Else
    Tables("表C").Position = 0
End If
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
                Tables("表C").Current("第一列") = f.name
                Tables("表C").Current("第二列") = fct.name
                Tables("表C").Current("第三列") = fct.text
                Tables("表C").Current("第四列") = fct.Enabled
                With Tables("表C")
                    If .Position = .Rows.Count - 1
                        Tables("表C").AddNew()
                    Else
                        .Position = .Position + 1
                    End If
                End With
            End If
        Next
    End If
Next
Tables("表C").Current.Delete()
For Each f As WinForm.Button In e.Form.Controls
    Dim dr As DataRow = DataTables("表C").find("第一列 ='"& e.form.name &"' and 第二列 = '"& f.name &"'")
    If dr IsNot Nothing Then
        f.text= dr("第三列")
        f.Enabled = dr("第四列")
    End If
Next

只能针对当前窗口吧！