您所在位置：主题：帮忙看看什么问题 grid右键 快捷菜单的问题
xm7050432
[专家分：180] 发布于 2009-02-18 11:33:00
前段时间开了个贴问 gird中右键菜单功能-调用选中目录的详细信息表单。
现在的问题是我有四个查询的地方用了这个功能，2个地方没问题，其他两个老是出现问题。
第一次用右键功能没有问题，再次试用的时候就提示找不到表格了（也就是关掉详细信息再回到查询界面的时候）。很奇怪。
具体看下面这些图
[img]http://imgqun.qq.com/cgi-bin/img?uuid=20190a1c824ff57302e2536f9be4c27503[/img]
如果点击取消 整个程序就退出了，如果点击忽略，重新查询就提示
[img]http://imgqun.qq.com/cgi-bin/img?uuid=20b4f2743e02d8f6d1c22594c46bfb1557[/img]
选定位，定位完有提示 要用独占的方式打开，郁闷
[img]http://imgqun.qq.com/cgi-bin/img?uuid=20c898055a096318e5cf09ccc16dd669d9[/img]
我原本怀疑调用的那两个表单 init或者退出的时候是不是写了什么代码，但是发现和正常的表单代码一样的，没什么特殊，请老师们帮我看看问题大概出在哪里？我估计是这两个详细表单打开的时候用了独占方式打开，但是一直找不到问题代码。
右键代码如下：
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 "详细信息"
*IF thisform.grid3.RecordSource="cllscx2"
*SELECT cllscx2
*endif
ddfg=ALLTRIM(AA)
SELECT BB.DBF
LOCATE for AA=ddfg
jjGGFH=RECNO()
ON SELECTION BAR 1 OF shortcut DO form XXXXX.scx
activate popup shortcut
deactivate popup shortcut
release popup shortcut
otxt=.f.
现在的问题是我有四个查询的地方用了这个功能，2个地方没问题，其他两个老是出现问题。
第一次用右键功能没有问题，再次试用的时候就提示找不到表格了（也就是关掉详细信息再回到查询界面的时候）。很奇怪。
具体看下面这些图
[img]http://imgqun.qq.com/cgi-bin/img?uuid=20190a1c824ff57302e2536f9be4c27503[/img]
如果点击取消 整个程序就退出了，如果点击忽略，重新查询就提示
[img]http://imgqun.qq.com/cgi-bin/img?uuid=20b4f2743e02d8f6d1c22594c46bfb1557[/img]
选定位，定位完有提示 要用独占的方式打开，郁闷
[img]http://imgqun.qq.com/cgi-bin/img?uuid=20c898055a096318e5cf09ccc16dd669d9[/img]
我原本怀疑调用的那两个表单 init或者退出的时候是不是写了什么代码，但是发现和正常的表单代码一样的，没什么特殊，请老师们帮我看看问题大概出在哪里？我估计是这两个详细表单打开的时候用了独占方式打开，但是一直找不到问题代码。
右键代码如下：
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 "详细信息"
*IF thisform.grid3.RecordSource="cllscx2"
*SELECT cllscx2
*endif
ddfg=ALLTRIM(AA)
SELECT BB.DBF
LOCATE for AA=ddfg
jjGGFH=RECNO()
ON SELECTION BAR 1 OF shortcut DO form XXXXX.scx
activate popup shortcut
deactivate popup shortcut
release popup shortcut
otxt=.f.
