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

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 表格控件重置数据源后，为什么表格不显示表记录内容？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 2417 人关注过本帖

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

只看楼主加入收藏

a965788818

等　级：新手上路
帖　子：11
专家分：0
注　册：2009-7-31
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：7

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

请教各位大侠：
        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
到此：表格控件不显示打开表记录

搜索更多相关主题的帖子: 数据源　表格　控件　记录　

2009-07-31 15:47

sywzs

来　自：辽宁
等　级：贵宾
威　望：15
帖　子：508
专家分：1725
注　册：2009-5-13

第 2 楼

得分:10

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

2009-08-01 06:13

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11798
专家分：43421
注　册：2006-5-13

第 3 楼

得分:10

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

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2009-08-01 08:25

a965788818

等　级：新手上路
帖　子：11
专家分：0
注　册：2009-7-31

第 4 楼

得分:0

回复 2楼 sywzs

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

2009-08-01 09:17

a965788818

等　级：新手上路
帖　子：11
专家分：0
注　册：2009-7-31

第 5 楼

得分:0

回复 3楼 hu9jj

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

请教各位大侠：
        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
到此：表格控件还是不显示打开表记录，空白

2009-08-01 09:20

sywzs

来　自：辽宁
等　级：贵宾
威　望：15
帖　子：508
专家分：1725
注　册：2009-5-13

第 6 楼

得分:0

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

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'

2009-08-01 10:49

sd_tysd

等　级：职业侠客
威　望：1
帖　子：81
专家分：319
注　册：2009-7-23

第 7 楼

得分:0

回复 5楼 a965788818

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
以上运行通过

2009-08-01 20:54