老师好,下面三组代码怎样合并。
Dim rdg = e.Form.Controls("RecordGrid1").BaseControl
rdg.cols(0).TextAlign = 7 '对齐
rdg.cols(0).style.BackColor = color.Red '背景 红色
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("收支表_Table1") '指定绑定表
rgd.Build() '重新生成
Dim bctr = e.Form.Controls("RecordGrid1").BaseControl
For Each r As object In bctr.Rows
If r(1) Is Nothing OrElse r(1) Is System.DBNull.Value Then r.visible = False
Next