这个代码,我测试有效:Dim rdgl = e.Form.Controls("RecordGrid1").BaseControl rdgl.Cols(0).Width = 50
至于:Tables("员工").Cols("个人基本资料").ShortCaption = "资料" 在窗口打开后执行时无效的,必须在打开窗口前或RecordGrid绑定到员工表之前执行,参考:
http://www.foxtable.com/help/topics/2453.htm
或者你直接将这个代码:Tables("员工").Cols("个人基本资料").ShortCaption = "资料"
放在项目事件AfterOpenProject中。
更简单办法,无需写代码的,是直接设置列属性: