我做了个查询表单，查询结果用表格控件来显示，若要想显示某条记录的详细信息通过点击表格第一列的“分类编码号合同号”来实现表单间参数的传递打开另外一个表单。现在当我输入查询条件点击查询按钮后能显示记录，但是当点击表格第一列“分类编码号合同号”显示详细信息时，就会提示“不能识别的text1”这是怎么回事呢？

查询按钮的Click时间代码：
SELECT  biaoAA
    if empty (alltrim(thisform.Text1.value))
       =messagebox("输入不能为空，请输入查询条件",5+48+0,"信息提示对话框")
       SET FILTER TO
       GO TOP
    ELSE
        SET FILTER TO LIKEC(ALLTRIM(thisform.Text1.value),UPPER(分类编码号合同号))
        go top
        if eof()
          =messagebox("无此记录,请核对所输入的数据是否正确",5+48+0,"信息提示对话框")
          set filter to
          go top
         endIF   
    endif
    thisform.refresh

表格Column1的Text1的Click事件：
LOCAL lcstr
lcstr=ALLTRIM(this.value)
DO FORM E:\系统开发\生产管理\表单AA  WITH lcstr



[ 本帖最后由 gyyimut 于 2014-12-14 09:33 编辑 ]

这是图片

缺少数据库文件及库表的FPT文件

Public lcStr
SELECT  biaoAA
lcStr=Alltrim(thisform.Text1.value)
*    if empty (alltrim(thisform.Text1.value))
    If Empty(lcStr)
       =messagebox("输入不能为空，请输入查询条件",5+48+0,"信息提示对话框")
       SET FILTER TO
       GO TOP
    ELSE
*        SET FILTER TO LIKEC(ALLTRIM(thisform.Text1.value),UPPER(分类编码号合同号)) && 问题可能出在这里，该命令中不能直接用控件的值。
        SET FILTER TO LIKEC(Likec(lcStr,UPPER(分类编码号合同号))
        go top
        if eof()
          =messagebox("无此记录,请核对所输入的数据是否正确",5+48+0,"信息提示对话框")
          set filter to
          go top
         endIF   
    endif
    thisform.refresh

[ 本帖最后由 sdta 于 2014-12-13 22:00 编辑 ]

SDTA老师说的很对，正是“SET FILTER TO LIKEC(ALLTRIM(thisform.Text1.value),UPPER(分类编码号合同号))”出了问题。谢谢sdta老师的及时回复！！！Thanks!