vfp中grid控件执行pack命令后无法刷新的解决办法

vfd的表单中放了一个grid控件，现有如下代码

pack

thisform.grid1.refresh

执行后表格整体为空白，经查阅资料（http://www.programmer-club.com.tw/showSameTitleN/foxpro/1556.html）

发现pack命令会断开数据表连接，因此解决的思路就是执行完后重新设置datagrid1的数据源，如下所示：

calias=thisform.grid1.RecordSource
pack
thisform.grid1.RecordSource=calias
thisform.grid1.Refresh()

测试通过