主题:请教 gird 中 右键怎么用 (续)
[img]http://imgqun.qq.com/cgi-bin/img?uuid=20b4bd041e8dee061b160c955706eda044[/img]
那天cbl518老师回复后,今天有空研究了下。
能出现任意位置点击右键弹出一个可选菜单,[color=FF0000]但是不知道点击AAAAA(如上图)跳转到我想要的表单代码要写怎么写那里?[/color]我在gird的rightclick写入如下代码:
local otxt
otxt=sys(1270)
if atc("text",otxt.name)=0
otxt=.f.
return
endif
*添加右键信息
local nsellength
nsellength= otxt.sellength<=0
define popup shortcut shortcut relative from mrow(),mcol()
define bar 1 of shortcut prompt "AAAAAAA" ;
[color=FF0000]**是不是要在这里加入代码,应该怎么写?****[/color]
activate popup shortcut
deactivate popup shortcut
release popup shortcut
otxt=.f.
以上代码实现任意位置右击出现AAAAA,不知道是不是有缺陷。
*******************************************************************************
以下是在上帖的说面
楼主
各位老师好,
比如我做了一个表单,主要是用来查询用,里面有一个gird用来显示查询的结果,
如果我选中某条结果,想通过点击鼠标右键直接打开一个新的表单,这个表单可以看清这条结果的详细信息。
我现在是暂时选中结果后,再点击另一个按钮,感觉比较麻烦。
按钮的代码大概如下:
SELECT lsjfcx $$ lsjfcx是grid的数据源,也是一个临时表。
jfdh=ALLTRIM(单号) $$ 单号是其中一个字段
SELECT XXX
LOCATE for 单号=jfdh
jjghjfd=RECNO()
DO form xxxxx.scx
请问如果想通过直接点击右键,难后选择打开xxxxx.scx.可否实现。谢谢。
那天cbl518老师回复后,今天有空研究了下。
能出现任意位置点击右键弹出一个可选菜单,[color=FF0000]但是不知道点击AAAAA(如上图)跳转到我想要的表单代码要写怎么写那里?[/color]我在gird的rightclick写入如下代码:
local otxt
otxt=sys(1270)
if atc("text",otxt.name)=0
otxt=.f.
return
endif
*添加右键信息
local nsellength
nsellength= otxt.sellength<=0
define popup shortcut shortcut relative from mrow(),mcol()
define bar 1 of shortcut prompt "AAAAAAA" ;
[color=FF0000]**是不是要在这里加入代码,应该怎么写?****[/color]
activate popup shortcut
deactivate popup shortcut
release popup shortcut
otxt=.f.
以上代码实现任意位置右击出现AAAAA,不知道是不是有缺陷。
*******************************************************************************
以下是在上帖的说面
楼主
各位老师好,
比如我做了一个表单,主要是用来查询用,里面有一个gird用来显示查询的结果,
如果我选中某条结果,想通过点击鼠标右键直接打开一个新的表单,这个表单可以看清这条结果的详细信息。
我现在是暂时选中结果后,再点击另一个按钮,感觉比较麻烦。
按钮的代码大概如下:
SELECT lsjfcx $$ lsjfcx是grid的数据源,也是一个临时表。
jfdh=ALLTRIM(单号) $$ 单号是其中一个字段
SELECT XXX
LOCATE for 单号=jfdh
jjghjfd=RECNO()
DO form xxxxx.scx
请问如果想通过直接点击右键,难后选择打开xxxxx.scx.可否实现。谢谢。