Foxtable(狐表)用户栏目专家坐堂 → 关于 for each 遍历控件


  共有2284人关注过本帖树形打印复制链接

主题:关于 for each 遍历控件

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/4 12:53:00 [显示全部帖子]

试试改成

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/4 12:55:00 [显示全部帖子]

如果还有问题,做个实例发上来测试。

 回到顶部