Grid表格如何只显示部分记录？ - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → Grid表格如何只显示部分记录？

我的收件箱(0)

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

共有 3659 人关注过本帖

标题：Grid表格如何只显示部分记录？

只看楼主加入收藏

mywisdom88

等　级：版主
威　望：191
帖　子：3147
专家分：8408
注　册：2015-3-25
结帖率：98.98%

楼主

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

Grid表格如何只显示部分记录？

我表单上用页框分开2页
在第2页上用了个GRID表格，数据源和第1页相同
如：
create cursor tmp1(xm c(20),zw c(20))
insert into tmp1(xm,zw) values("张三1","老师")
insert into tmp1(xm,zw) values("张三2","老板")
insert into tmp1(xm,zw) values("张三3","经理")
insert into tmp1(xm,zw) values("张三4","老总")
insert into tmp1(xm,zw) values("张三5","员工")
insert into tmp1(xm,zw) values("张三6","主管")
在页框第1页，能显示和操作所有记录，即6个记录
但在页框2页，用GRID显示记录，能不能只显示某些记录，不如不显示 ZW="老板"的记录？
如果GRID的数据源和第1页不同，肯定是可以的；
我想来回在第1页与第2页之间操作数据，如果用2个数据源，就会出现数据不同步。。。

搜索更多相关主题的帖子: create　cursor　insert　values　数据源　

2016-03-06 18:02

mywisdom88

等　级：版主
威　望：191
帖　子：3147
专家分：8408
注　册：2015-3-25

第 2 楼

得分:0

在做1个权限表单，
我想把 MenuType="ROT","SOP","SOM"的数据不在GRID上显示，因为这些数据不需要修改。。

菜单1.rar (41.73 KB)

2016-03-06 18:11

hu9jj

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

第 3 楼

得分:5

看看帮助文件中的有关select、locat等命令。

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

2016-03-06 19:09

吹水佬

等　级：版主
威　望：451
帖　子：10607
专家分：43186
注　册：2014-5-20

第 4 楼

得分:15

参考示例

图片附件: 游客没有浏览图片的权限，请登录或注册

程序代码：

** Test.prg
create cursor tmp1(xm c(20),zw c(20))
insert into tmp1(xm,zw) values("张三1","老师")
insert into tmp1(xm,zw) values("张三2","老板")
insert into tmp1(xm,zw) values("张三3","经理")
insert into tmp1(xm,zw) values("张三4","老总")
insert into tmp1(xm,zw) values("张三5","员工")
insert into tmp1(xm,zw) values("张三6","主管")
of = CREATEOBJECT("form1")
of.show(1)
CLEAR ALL 

DEFINE CLASS form1 as Form
    ADD OBJECT pf1 as Pageframe1 WITH width=this.width,height=this.Height
ENDDEFINE

DEFINE CLASS Pageframe1 as Pageframe
    ADD OBJECT P1 as Page1
    ADD OBJECT P2 as Page1
ENDDEFINE

DEFINE CLASS Page1 as Page
    ADD OBJECT grid1 as grid
    
    PROCEDURE Init
        this.grid1.width  = this.Parent.width
        this.grid1.height = this.Parent.Height
    ENDPROC
    
    PROCEDURE Activate
        IF this.Parent.ActivePage == 2
            SET FILTER TO !(ALLTRIM(zw) == "老板")
        ELSE
            SET FILTER TO
        ENDIF
        GO TOP 
        this.grid1.SetFocus
    ENDPROC
ENDDEFINE

[此贴子已经被作者于2016-3-6 20:03编辑过]

2016-03-06 19:58

mywisdom88

等　级：版主
威　望：191
帖　子：3147
专家分：8408
注　册：2015-3-25

第 5 楼

得分:0

以下是引用吹水佬在2016-3-6 19:58:20的发言：

参考示例

** Test.prg
create cursor tmp1(xm c(20),zw c(20))
insert into tmp1(xm,zw) values("张三1","老师")
insert into tmp1(xm,zw) values("张三2","老板")
insert into tmp1(xm,zw) values("张三3","经理")
insert into tmp1(xm,zw) values("张三4","老总")
insert into tmp1(xm,zw) values("张三5","员工")
insert into tmp1(xm,zw) values("张三6","主管")
of = CREATEOBJECT("form1")
of.show(1)
CLEAR ALL

DEFINE CLASS form1 as Form
    ADD OBJECT pf1 as Pageframe1 WITH width=this.width,height=this.Height
ENDDEFINE

DEFINE CLASS Pageframe1 as Pageframe
    ADD OBJECT P1 as Page1
    ADD OBJECT P2 as Page1
ENDDEFINE

DEFINE CLASS Page1 as Page
    ADD OBJECT grid1 as grid

    PROCEDURE Init
        this.grid1.width  = this.Parent.width
        this.grid1.height = this.Parent.Height
    ENDPROC

    PROCEDURE Activate
        IF this.Parent.ActivePage == 2
            SET FILTER TO !(ALLTRIM(zw) == "老板")
        ELSE
            SET FILTER TO
        ENDIF
        GO TOP
        this.grid1.SetFocus
    ENDPROC
ENDDEFINE

SET FILTER TO !INLIST(ALLTRIM(MenuType),"SOP","SOM","ROT")

2016-03-06 21:36

快速回复：Grid表格如何只显示部分记录？