以下是组合条件查询表单中“查询”按纽的Click事件代码：
cxtj=ALLTRIM(thisform.edit1.value)
IF cxtj<>null.and.xszd<>null
  SELECT &xszd FROM qyjbxxb,qyzycpk WHERE &cxtj INTO  CURSOR cxjg
ELSE
  =messagebox("未设置查询条件或未选择输出字段！",48 ,"错误信息")
  RETURN
ENDIF
thisform.Visible= .F.
DO form forms\zhcxjg&&zhcxjg是查询结果显示表单

运行时总是出现"未设置查询条件或未选择输出字段！"的提示框，是什么原因？
注：xszd变量在“显示字段选择”列表框的InterativeChange事件中已经赋值：
xszd=''
   FOR xh=1 TO THISFORM.LIST2.LISTCOUNT
      IF thisform.list2.Selected(xh)
          xszd=xszd+","+alltrim(THISFORM.LIST2.list(xh))
      ENDIF
   ENDFOR
xszd=LEFT(xszd,LEN(xszd)-1)   

IF cxtj<>null.and.xszd<>null
改为
IF !empt(cxtj) and !empt(xszd)
看看

用调试器跟踪一下出现这个错误时代码执行到了哪一行

SELECT &xszd FROM qyjbxxb,qyzycpk WHERE &cxtj INTO  CURSOR cxjg
改成
SELECT &xszd. FROM qyjbxxb,qyzycpk WHERE &cxtj. INTO  CURSOR cxjg



IF cxtj<>null.and.xszd<>null
改为
IF !empty(cxtj) and !empty(xszd)

xszd=LEFT(xszd,LEN(xszd)-1)
改为
xszd=subs(xszd,2)  或  xszd=RIGHT(xszd,LEN(xszd)-1)


IF cxtj<>null.and.xszd<>null
改为
IF !empty(cxtj) and !empty(xszd)

  FOR xh=1 TO THISFORM.LIST2.LISTCOUNT
      IF thisform.list2.Selected(xh)
          xszd=xszd+","+alltrim(THISFORM.LIST2.list(xh))
      ENDIF
   ENDFOR
   xszd=LEFT(xszd,LEN(xszd)-1) && 这样写也是错误的，第一个字符永远是[,]
改为
  FOR xh=1 TO THISFORM.LIST2.LISTCOUNT
      IF thisform.list2.Selected(xh)
          xszd=xszd+alltrim(THISFORM.LIST2.list(xh))+IIF(XH<THISFORM.LIST2.LISTCOUNT,[,],[])
      ENDIF
   ENDFOR
试试

[ 本帖最后由 sdta 于 2013-1-28 11:35 编辑 ]

如此改后，运行时出现错误：


挂起后，显示错误行如下：

改后,还是提示错误：

同时已将IF cxtj<>null.and.xszd<>null
改为
IF !empty(cxtj) and !empty(xszd)

改后提示错误同8楼。