- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于记录窗口美化问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=131486)
-- 发布时间：2019/2/27 16:40:00
-- 关于记录窗口美化问题
老师好！我有个记录窗口，请问有一段淡灰色空白
此主题相关图片如下：qq截图20190227162850.png
应该如何消除。是调整记录窗口中的行高吗？代码要如何写？请指教！
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Columns = "单位名称|品名|底价|开票价|税率|收款人户名|收款人账号|收款人银行|备注|电话号码"
e.Form.Controls("RecordGrid1").basecontrol.VisualStyle = 4
Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
bctr.AutoSizeRows
rgd.Table = Tables("表1") \'指定绑定表
rgd.Build() \'重新生成记录窗
-- 发布时间：2019/2/27 16:48:00
--
参考代码
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Columns = "第一列|第二列"
Dim brgd = rgd.BaseControl
brgd.VisualStyle = 4
rgd.Table = Tables("表A") \'指定绑定表
rgd.Build() \'重新生成记录窗
Dim h As Integer = rgd.Height / brgd.Rows.count
For i As Integer = 0 To brgd.Rows.count-1
brgd.Rows(i).height = h
Next