- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]想一键拓宽记录窗口行高，能行吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88928)
-- 发布时间：2016/8/11 18:18:00
-- [求助]想一键拓宽记录窗口行高，能行吗？
由于单元格内字符较多，在记录窗口总是显示不全，默认的是显示单行字符，若要浏览记录单全貌，就需要多次双击记录窗口行间分割线，能否设置两个按钮，一个全部拓开，一个还原。
-- 发布时间：2016/8/11 18:32:00
--
Dim g = e.Form.Controls("RecordGrid1").BaseControl
g.AutoSizeRows
-----------------
Dim g = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In g.rows
r.height = 20
Next
-- 发布时间：2016/8/11 18:58:00
--
此主题相关图片如下：image 1.jpg
-- 发布时间：2016/8/11 20:20:00
--
Dim g = Forms("窗口1").Controls("RecordGrid1").BaseControl
g.AutoSizeRows
-- 发布时间：2016/8/11 20:38:00
--
此主题相关图片如下：image 3.jpg
-- 发布时间：2016/8/11 21:27:00
--
窗口名、控件名，必须正确。你要打开窗口1、窗口1要有记录窗口控件。
-- 发布时间：2016/8/12 7:24:00
--
以下是引用大红袍在2016/8/11 21:27:00的发言：
窗口名、控件名，必须正确
窗口名、控件名，必须正确
查了系统的记录窗口，没找到控件，运行代码，提示"记录窗口"不存在，但系统的这个窗口名称没错呀。 Dim g = Forms("记录窗口").Controls("RecordGrid").BaseControl |
[此贴子已经被作者于2016/8/12 7:23:57编辑过]
-- 发布时间：2016/8/12 8:54:00
--
指的是主表的记录窗口吧：
For Each dt As DataTable In DataTables
For Each a As OBJECT In Tables(dt.name).grid.parent.controls
For Each b As OBJECT In a.controls
\'output.show(b.text)
If b.text = dt.name Then
Dim d = b.controls(0).controls(0)
d.AutoSizeRows
End If
Next
Next
Next
-- 发布时间：2016/8/12 9:08:00
--
谢谢！正是我想要的效果。