以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]记录窗口如何批量设置行高  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=162103)

--  作者:2425004926
--  发布时间:2021/4/6 9:22:00
--  [求助]记录窗口如何批量设置行高
记录窗口批量设置行高测试没有成功,能不能批量设置?

Dim rgd As WinForm.RecordGrid = Forms("窗口1").Controls("RecordGrid1")
\'Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("表A")
rgd.Columns = "第一列|第二列|第三列|第四列"
Dim s1() As String = {"第一列","第二列","第三列","第四列"}
For i As Integer = 0 To s1.Length -1
    Tables("表A").Cols(s1(i)).RecordRowHeight = 3 \'高度为3倍行高,测试不成功
Next

rgd.Build()
--  作者:有点蓝
--  发布时间:2021/4/6 9:32:00
--  
测试没有问题,请上传实例说明
--  作者:2425004926
--  发布时间:2021/4/6 9:55:00
--  
再测就是OK的,谢谢!