主题：关于记录窗口美化问题

参考代码

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