以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  RecordGrid如何设置宽度和高度?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89485)

--  作者:xujie80
--  发布时间:2016/8/23 9:04:00
--  RecordGrid如何设置宽度和高度?
在窗口动态生成一个RecordGrid,绑定到表,结果只能调整字体、颜色,但无法调整行的高度和列的宽度,通过绑定的表调整,但格式带不到RecordGrid中来,请问如何设置?
设置行高:
Tables("map").DefaultRowHeight = 50

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
但是记录窗口显示

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


--  作者:大红袍
--  发布时间:2016/8/23 9:08:00
--  

Dim g = Forms("窗口1").Controls("RecordGrid1").BaseControl
g.AutoSizeRows

g.AutoSizeCols


--  作者:大红袍
--  发布时间:2016/8/23 9:10:00
--  

单独写也可以,如

 

Dim g = Forms("窗口1").Controls("RecordGrid1").BaseControl
For Each r As object In g.rows
    r.height = 50
Next


--  作者:xujie80
--  发布时间:2016/8/23 9:13:00
--  
这个在帮助文件中查不到呀
--  作者:nblwar
--  发布时间:2016/8/23 13:37:00
--  
列的宽度
Dim rg = e.Form.Controls("RecordGrid1").BaseControl
rg.Cols(0).Width = 300

行的高度
参考帮助文件中搜索  RecordRowHeight

--  作者:xujie80
--  发布时间:2016/8/23 14:30:00
--  
谢谢