If Forms("工程数据").opened Then
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd.Table = Tables("工程数据_Table1") '指定绑定表
rgd.Columns = "工程名称|委托方|施工方"
rgd.Build() '重新生成记录窗
Dim brgd = rgd.BaseControl
brgd.VisualStyle = 4
brgd.Styles.normal.Border.Style = 1
brgd.styles.Normal.Border.Color = Color.red
brgd.styles.Normal.Border.width = 1
brgd.font = new font("宋体", 10)
Dim h As Integer = (rgd.Height -3) / brgd.Rows.count
For i As Integer = 0 To brgd.Rows.count-1
brgd.Rows(i).height = h
Next
Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid2")
rgd2.Table = Tables("工程数据_Table1") '指定绑定表
rgd2.Columns = "报告类别|合同编号|合作单位|合作负责人|报送联系人|编制人|项目负责人|二级复核人|复核人|报送份数"
rgd2.Build() '重新生成记录窗
Dim brgd2 = rgd2.BaseControl
brgd2.VisualStyle = 4
brgd2.Styles.normal.Border.Style = 1
brgd2.styles.Normal.Border.Color = Color.red
brgd2.styles.Normal.Border.width = 1
brgd2.font = new font("宋体", 10)
Dim h2 As Integer = (rgd2.Height -2) / brgd2.Rows.count
For i2 As Integer = 0 To brgd2.Rows.count-1
brgd2.Rows(i2).height = h2
Next
Dim rgd3 As WinForm.RecordGrid = e.Form.Controls("RecordGrid3")
rgd3.Table = Tables("工程数据_Table1") '指定绑定表
rgd3.Columns = "报审值|审定值|增减值|报送日期|接收日期|二级复核单发送日期|正式报告收到日期|公司盖章寄回日期|存档日期|附件"
rgd3.Build() '重新生成记录窗
Dim brgd3 = rgd3.BaseControl
brgd3.VisualStyle = 4
brgd3.Styles.normal.Border.Style = 1
brgd3.styles.Normal.Border.Color = Color.red
brgd3.styles.Normal.Border.width = 1
brgd3.font = new font("宋体", 10)
Dim h3 As Integer = (rgd3.Height -2) / brgd3.Rows.count
For i3 As Integer = 0 To brgd3.Rows.count-1
brgd3.Rows(i3).height = h3
Next
End If
加好友 
发短信
Post By：2019/3/19 21:55:00 [只看该作者]
此主题相关图片如下：记录窗口.jpg