很基础的问题啊
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")rgd.Table = Tables("收支表_Table1") '指定绑定表rgd.Build() '重新生成
Dim brgd = e.Form.Controls("RecordGrid1").BaseControlbrgd.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 = FalseNext