Dim rgd As WinForm.RecordGrid
rgd = e.Form.CreateControl("lable1", ControlTypeEnum.RecordGrid)
Tables("员工").Cols("邮政编码").ShortCaption = "邮编" ' 指定邮政编码列的缩写标题
Tables("员工").Cols("照片").ShowInRecordGrid = False '照片列不在记录窗口显示
rgd.Table = Tables("员工") '绑定到员工表
rgd.Build() '生成记录窗口
rgd.SetBounds(10,10,200,300) '指定位置和尺寸
e.Form.AddControl(rgd)