我建了一个查询表单，表单1内容非常简单，如图 ，查询代码为：
ax=ALLTRIM(thisform.text1.Value )
SELECT * from fail WHERE failname=ax INTO CURSOR lsb
thisform.grid1.RecordSource="lsb"
thisform.grid1.Refresh

另外在表单中GRID1中的column1.text1的click事件中加入了一个调用另外一个表单的语句：
DO FORM forms\failshower

在没有点击表单1中的检索或点击一次“检索”按钮后，GRID1的形式与上图相同，且点击GRID1中的column1.text1时能成功调用failshower 表单。但是点击第二“检索”按钮后，GRID1的形式就变成了 ，关键是点击GRID1中的column1.text1时没有任何反应，也无法调出failshower表单，错在哪里啊，请大侠指教，谢谢！

将相关文件打包放上来

有時候截圖是不能解決問題的。

* Grid表格的数据源重新绑定后，内部的 grid1.column1.text1.click 事件将失效。
* 解决方法有2种
* 1.绑定，在表单中，增加1个方法程序，如名称叫 failshower ，把你 grid1.column1.text1.click 上执行的内容，放到 failshower 去
* 然后，再用绑定命令，BINDEVENT(thisform.grid1.column1.text1,"Click",thisform,"failshower") 就可以了

* 2.自己封装 grid 表格，把你 grid1.column1.text1.click 修改好了后，保持为类，然后拖到你表单上去。

thisform.grid1.RecordSource = null  &&防止查询时，表格出现白屏，一定要放在查询语句前面
 SELECT * from fail WHERE allt(failname) = ax INTO CURSOR lsb
 thisform.grid1.ColumnCount = -1
 thisform.grid1.RecordSourceType = 1
 thisform.grid1.RecordSource = "lsb"
 BINDEVENT(thisform.grid1.column1.text1,"Click",thisform,"failshower") &&要放在设置数据源语句的后面
 thisform.grid1.Refresh

[此贴子已经被作者于2018-9-16 10:24编辑过]

试了一下将表格封装为类，好像还是不行

已解决，谢谢！！

路过学习