标题:请问下如何在pageframe中多个选项卡的表格中使用一个右键菜单
只看楼主
fwy12
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2020-2-16
结帖率:94.44%
已结贴  问题点数:20 回复次数:4 
请问下如何在pageframe中多个选项卡的表格中使用一个右键菜单
我的form1中有pageframe1,她有10个选项卡,分别是 page1,page2....page10;每个选项卡中又有一个表格grid1,我想通过grid1的右键菜单,来控制表格的添加数据,删除数据等操作。只做一个右键菜单。我的在每个选项卡中的grid1中rightclick事件中写到:Do menu\youjian.mpr。
请问题具体的右键菜单要怎么写呢。
我想是在右键菜单中做出判断哪个选项卡是处于激活状态的。如:
右键的添加数据功能:

if thisform.pageform1.page1.activate
SELECT zonghejia
thisform.pageform1.page1.grid1.setfocus
GO bottom
thisform.pageform1.page1.grid1.readonly=.f.
thisform.pageform1.page1.grid1.AllowCellSelection=.t.
APPEND BLANK
endif  

if thisform.pageform1.page2.activate
SELECT zonghejia
thisform.pageform1.page2.grid1.setfocus
GO bottom
thisform.pageform1.page2.grid1.readonly=.f.
thisform.pageform1.page2.grid1.AllowCellSelection=.t.
APPEND BLANK
endif  

...........

if thisform.pageform1.page10.activate
SELECT zonghejia
thisform.pageform1.page10.grid1.setfocus
GO bottom
thisform.pageform1.page10.grid1.readonly=.f.
thisform.pageform1.page10.grid1.AllowCellSelection=.t.
APPEND BLANK
endif  
请问下还有没有更简便的方法。非常感谢。


[此贴子已经被作者于2020-4-9 10:56编辑过]

搜索更多相关主题的帖子: 菜单 选项卡 thisform 表格 右键 
2020-04-09 10:13
瓜瓜1990
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:18
帖 子:125
专家分:699
注 册:2020-2-25
得分:10 
if 判断 thisform.pageform1.page1.activate?
activate是事件,用属性activepage=1,2,3...用判断活动的页面,可以给activepage添加一个_assign事件,每当activepage改变时,自动选中当前页的工作区.右键菜单中就不需要判断当前工作区了.然后用parent属性引用页面.

piu~piu~
2020-04-09 11:07
fwy12
Rank: 1
等 级:新手上路
帖 子:59
专家分:0
注 册:2020-2-16
得分:0 
回复 2楼 瓜瓜1990
请问您下,这个_assign事件能说的具体些么?百度也没有找到具体的用法。
2020-04-09 16:59
瓜瓜1990
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:18
帖 子:125
专家分:699
注 册:2020-2-25
得分:0 
帮助文档中有,与类属性有同样名称,然后加 _ACCESS 或 _ASSIGN 后缀.

一个公共接口,每当更改属性就执行assign的代码,访问属性就执行access的代码.

piu~piu~
2020-04-09 18:31
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:10 
以下是引用fwy12在2020-4-9 16:59:30的发言:

请问您下,这个_assign事件能说的具体些么?百度也没有找到具体的用法。

可以下载VFP9帮助文档自学
https://down.bccn.net/6944.html

坚守VFP最后的阵地
2020-04-10 08:27



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-500952-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.379190 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved