Dim rgd As WinForm.RecordGrid = Forms("窗口1").Controls("RecordGrid1")
'Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid1") rgd.Table = Tables("表A") rgd.Columns = "第一列|第二列|第三列|第四列" Dim s1() As String = {"第一列","第二列","第三列","第四列"} For i As Integer = 0 To s1.Length -1 Tables("表A").Cols(s1(i)).RecordRowHeight = 3 '高度为3倍行高,测试不成功 Next rgd.Build()