请教各位大侠：
        Select 1
        Use &wjm Exclusive
        Thisform.grid1.RecordSource=''
        Thisform.grid1.RecordSource='&wjm'
        Thisform.grid1.RecordSourceType=1

        Go jlh
        Delete
到此：表格控件能显示打开表记录

        Pack

                  use
        Select 1
        If !Used('&wjm')
            Use &wjm
        Endif

        Thisform.grid1.RecordSource=''
        Thisform.grid1.RecordSource='&wjm'
        Thisform.grid1.RecordSourceType=1
        Thisform.grid1.Visible=.T.
        Thisform.grid1.Enabled= .T.
        Thisform.grid1.Refresh
到此：表格控件不显示打开表记录

以上代码不是在一个程序段里写的吧,
把 WJM 定义为全局变量，就不会有问题了。

执行pack之前先切断表格的数据源，表格就不会变成空白的了。

以上代码是在一个程序段里写的。
WJM 已定义为全局变量

表格控件重置数据源后，为什么表格不显示表记录内容？

请教各位大侠：
        Select 1
        Use &wjm Exclusive
        Thisform.grid1.RecordSource='&wjm'
        Thisform.grid1.RecordSourceType=1
        Go jlh
        Delete
        Thisform.grid1.RecordSource=''
        Pack
        use
        Select 1
        If !Used('&wjm')
            Use &wjm
        Endif
        Thisform.grid1.RecordSource='&wjm'
        Thisform.grid1.RecordSourceType=1
        Thisform.grid1.Visible=.T.
        Thisform.grid1.Enabled= .T.
        Thisform.grid1.Refresh
到此：表格控件还是不显示打开表记录 ，空白

如果代码是在一个程序段里写的，运行下面的代码没有错。

wjm="表A"
jlh=1 &&表内任意记录号

SELECT 1
USE &wjm EXCLUSIVE
THISFORM.grid1.RECORDSOURCE='&wjm'
THISFORM.grid1.RECORDSOURCETYPE=1
GO jlh
DELETE
PACK
THISFORM.grid1.RECORDSOURCE='&wjm'

wjm='表名'

        Select 1
        Use &wjm Exclusive
        Thisform.grid1.RecordSource='&wjm'
        Thisform.grid1.RecordSourceType=1

        Delete
        Thisform.grid1.RecordSource=''
        Pack
         Thisform.grid1.RecordSource='&wjm'
        Thisform.grid1.RecordSourceType=1
以上运行通过

谢谢，我刚好遇上这问题，用您的方法解决了，太谢谢了