主题：[求助]记录窗口

这个代码，我测试有效：
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中。

更简单办法，无需写代码的，是直接设置列属性：