重新绑定数据源，原表格的一些设置会丢失，需要重新设置。
先切断表格的数据源：
ThisForm.Grad1.RecordSource=""

然后执行命令PACK

再重新绑定数据源
ThisForm.Grad1.RecordSource="表别名"

直接解压到c:\,就可以了,欢迎多提意见！

      
  sele 1
  use &kl1\public\cklsk.dbf excl alias cklsk
  ThisForm.Grid1.RecordSource=cklsk
 第一句ThisForm.Grid1.RecordSource="" 好用，第二句 ThisForm.Grid1.RecordSource=cklsk 出现上面提示，是不是我写的不对？

ThisForm.Grid1.RecordSource="cklsk"

呵呵 好使了，又出现一个问题：当继续执行 yn=messagebox('您要打印出库单吗？ ',4+32+0,'请 选 择 ')语句时，表格又白了。

呵呵 好使了，又出现一个问题：当继续执行 yn=messagebox('您要打印出库单吗？ ',4+32+0,'请 选 择 ')语句时，表格又白了，咋整?

[ 本帖最后由 东海 于 2012-8-30 22:13 编辑 ]

呵呵 问题解决了，采用迂回方法，问完yn=messagebox('对否？ ',4+32+0,'请 选 择 ')接着就执行 yynn=messagebox('您要打印出库单吗？ ',4+32+0,'请 选 择 ')，这样也算通过了。