Foxtable(狐表)用户栏目专家坐堂 → 关于记录窗口的行高度问题


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

主题:关于记录窗口的行高度问题

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/5/31 17:23:00 [显示全部帖子]

For Each a As OBJECT In Tables("表A").grid.parent.controls
    For Each b As OBJECT In a.controls
        If b.text = "表A"
            Dim d = b.controls(0).controls(0)
            d.AutoSizeRows '自动行高         
            For i As Integer = 0 To d.Rows.count - 1
                output.show(d.Rows(i).HeightDisplay)               
            Next
        End If
    Next
Next

 回到顶部