专家坐堂-记录窗口录入时报错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

Dim rgd2 As WinForm.RecordGrid = e.Form.Controls("RecordGrid2")

rgd2.Table = Tables("工程数据_Table1") \'指定绑定表

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

Dim rgd3 As WinForm.RecordGrid = e.Form.Controls("RecordGrid3")

rgd3.Table = Tables("工程数据_Table1") \'指定绑定表

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

End If