For i As Integer = 1 To 3
Dim rg As String = "RecordGrid" & i
Dim rgd As WinForm.RecordGrid = e.Form.Controls(rg)
rgd.Table = Tables(e.form.tablename) '指定绑定表
rgd.Columns = "用户ID|用户姓名|楼盘|单元房号|状态|报备人|客户等级|用户电话|新房面积|图纸提供"
'Tables(e.form.tablename).Cols("摘要").RecordRowHeight = 3 '备注列的高度为3倍行高
'Tables(e.form.tablename).Cols("结果定义").RecordRowHeight = 3 '备注列的高度为3倍行高
Dim dg = e.Form.Controls(rg).basecontrol
dg.styles.EmptyArea.BackColor = Color.White '重新生成记录窗口背景底色
rgd.Build() '重新生成记录窗口
Next
加好友 
发短信
Post By：2019/9/17 8:53:00 [显示全部帖子]
