主题：关于 for each 遍历控件

试试改成

Dim e=Args(0)
Dim Tablename As String
For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.Table Then '判断控件是否是文本框
msgbox(c.name)
        Tablename=e.form.name & "_" & c.Name
        Dim r As DataRow=DataTables("样式表").Find("所属表名 = '" & Tablename & "' and 启用 =true")
        If r IsNot Nothing Then
            Tables(Tablename).SetColVisibleWidth(r("列宽样式"))
        End If
    End If
Next