以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于记录窗口的行高度问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101447)
--  作者：y2287958
--  发布时间：2017/5/31 17:08:00
--  关于记录窗口的行高度问题
最近在学习内置记录窗口，碰到问题了：自动行高后行高为-1的行，其实际高度如何得到？谢谢！
    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).height)   \'从这里可以看到部分行高度为-1（默认值）
                Next
                
            End If
        Next
    Next


[此贴子已经被作者于2017/5/31 17:09:00编辑过]
--  作者：有点色
--  发布时间：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