很基础的问题啊
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("收支表_Table1") '指定绑定表
rgd.Build() '重新生成
Dim brgd = e.Form.Controls("RecordGrid1").BaseControl
brgd.cols(0).TextAlign = 7 '对齐
brgd.cols(0).style.BackColor = color.Red '背景 红色
For Each r As object In brgd.Rows
If r(1) Is Nothing OrElse r(1) Is System.DBNull.Value Then r.visible = False
Next