在GRID 某列文本的方法程序的click事件中加入调用子程序代码运行点击时没反应。

[spring_sw]

想通过点击grid显示内容某列中的某个名字，来启动与该名字相关的另一个表单，但在GRID 某列文本的方法程序的click事件中加入调用子程序的代码，实际执行中点击时没反应。请教高手怎么解决？（注：不想用插入命令按钮的方式）

[lygcw9602]

TEXT1.CLICK事件中代码 DO FORM 表单1.SCX

[oldbbb]

看似Text1不能获得焦点，如Text1.Enabled = .F. 或 Grid1.AllowCellSelection = .F. 的情况。

[spring_sw]

1、 首先感谢版主和楼上各位大侠的热情回帖。 2、反复检查、测试了与GRID.COLUMN4.TEXT1相关的设置（包括4楼oldbbb 先生的提示），检查了曾经按此方法编制的一款成功软件的设置情况，数据环境一致，但那款能触发，现在手头这款却还是不行，不知何故？

[spring_sw]

不知为什么，加了后没反应，甚至加 MESSAGEBOX(" OK! ",0,"系统提示") 也没反应。

[spring_sw]

好奇怪！ 在grid 的任何一列 就是按版主说的方式添加click事件 MESSAGEBOX(" OK! ",0,"系统提示") ，但每例都没反应，请教各位高手：是不是哪个属性被关闭了？

[xuzuning]

[spring_sw]

* 表单中对grid限定 with thisform.grid1 .width=thisform.width .height=530 .left=0 .top=130 .recordsource="2014_zj12p" .deletemark=.f. .visible=.t. .readonly=.t. .ColumnCount=10 .column1.header1.caption="产品代码" .column2.header1.caption="批次" .column3.header1.caption="科目" .column4.header1.caption=" 符合查询条件的产品 " .column5.header1.caption="是否进口" .column6.header1.caption="是否合资" .column8.header1.caption="主销市" .column9.header1.caption="最低价" .recordsourcetype=4 .column1.width=50 .column2.width=50 .column3.width=50 .column4.width=200 .column5.width=50 .column6.width=50 .column7.width=80 .column8.width=60 .column9.width=90 endwith * 触发column4.header1.text1 方法程序代码： PUBLIC kbc1,kbc2,kbc3 kbc1=cp_name kbc2=pc kbc3=km SELECT 12 LOCATE FOR ALLTRIM(cp_name)=kbc1 .and. ALLTRIM(pc)=kbc2 .and. km=kbc3 IF EOF() MESSAGEBOX("抱歉！系统无此信息。",0,"系统提示") ELSE DO FOR cpxb ENDIF

[spring_sw]

上面漏发： .column7.header1.caption="生产日期"

[spring_sw]

版主提示的类浏览器中，下面这段代码没被放在需触发的 GRID.COLUMN4.TEXT1 后，而是被放在类浏览器的最后，不知是否会影响？ ............... ADD OBJECT form1.grid1.column4.header1 AS header WITH ; Caption = "Header1", ; Name = "Header1" ADD OBJECT form1.grid1.column4.text1 AS textbox WITH ; BorderStyle = 0, ; Margin = 0, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Text1" ADD OBJECT form1.grid1.column5.header1 AS header WITH ; Caption = "Header1", ; Name = "Header1" ADD OBJECT form1.grid1.column5.text1 AS textbox WITH ; BorderStyle = 0, ; Margin = 0, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(192,192,192), ; Name = "Text1" .......................... ...... PROCEDURE text1.Click ENDPROC PROCEDURE text1.Click PUBLIC kbc1,kbc2,kbc3,kbc4,kbc5 kbc1=cp_name kbc2=pc kbc3=km SELECT 12 LOCATE FOR ALLTRIM(cp_name)=kbc1 .and. ALLTRIM(pc)=kbc2 .and. km=kbc3 IF EOF() MESSAGEBOX("抱歉！系统无此信息。",0,"系统提示") ELSE DO FOR cpxb ENDIF ENDPROC PROCEDURE text1.MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord ENDPROC ENDDEFINE

[xuzuning]

判断 LOCATE 是否成功应用 FOUND 函数，用 EOF 是否妥当？ DO FORM 能简写成 DO FOR 吗？

[oldbbb]

引用 6 楼 spring_sw 的回复:

好奇怪！ 在grid 的任何一列 就是按版主说的方式添加click事件 MESSAGEBOX(" OK! ",0,"系统提示") ，但每例都没反应，请教各位高手：是不是哪个属性被关闭了？

单元格能编辑数据吗?

[spring_sw]

不能，是只读方式显示。

[spring_sw]

引用 13 楼 xuzuning 的回复:

判断 LOCATE 是否成功应用 FOUND 函数，用 EOF 是否妥当？ DO FORM 能简写成 DO FOR 吗？

抱歉，粘贴时鼠标划过把form的“m"删除了，原文件是有的。在原文件中用 MESSAGEBOX("ok！",0,"系统提示") 替代方法执行click中的代码依然没用。 按版主提示，在类浏览器中发现click事件的执行代码被放在最后（见12楼），它的起始也是text1,但未注明是grid1.column4下面的，会不会与表单中的文本框txet1 重名而系统不能识别？

[xuzuning]

只读方式也只是不能编辑而已，click 事件还是能响应的
你能贴出代码吗？
如果是图形化编辑的，可在 工具--类浏览器 中打开表单，然后查看类代码
这是我的测试表单看到的