以下是组合条件查询表单中“查询”按纽的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 !empty(cxtj) and !empty(xszd)

改后提示错误同8楼。

没有错误提示啊，就是不执行赋值语句xazd=.........,始终只执行else后的语句。

谢谢。想了很久，错误的根源应该在以下这段代码：
   FOR xh=1 TO THISFORM.LIST2.LISTCOUNT
      IF thisform.list2.Selected(xh)
          xszd=xszd+","+alltrim(THISFORM.LIST2.list(xh))
      ENDIF
   ENDFOR
即变量XSZD（显示字段）的赋值有误。
列表框（list2)的列表项是在表单的Init事件中定义的，它们来源于两个数据库表：qyjbxxb,qyzycpk。代码如下：

SELECT qyjbxxb
for i=1 to (FCOUNT()-1)
    thisform.list2.additem(FIELD(i,'qyjbxxb',1))
ENDFOR
SELECT qyzycpk
    for i=3 to (FCOUNT()-1)
thisform.list2.additem(FIELD(i,'qyzycpk',1))
endfor

列表项显示的是字段标题，变量xszd接收的应该是字段名，因此，那段给XSZD赋值的代码肯定是错误的，它不能从表中找到应该显示的字段。现在的问题是，根据这种情况，该语句应该怎样写呢？怎样将列表框中选定的项所对应的表字段名赋值给变量XSZD？

谢谢。TonyDeng版能以此实例给予指点吗？本人对于数组的理解，实在是太肤浅了，比如定义数组时，下标都不知道如何确定为好，引用也是。

问题1：列表框项目来源于2个表，是不是要建立2个二维数组变量？并将以上代码重复2次？
问题2：这里的变量XH是用于存贮选定字段的字段名吗？

[ 本帖最后由 陶然愚者 于 2013-1-28 16:12 编辑 ]

是的，我将该段代码修改为：
SELECT qyjbxxb
qyzds=FCOUNT()
SELECT qyzycpk
cpzds=FCOUNT()
DIMENSION arr[(qyzds+cpzds-4),2]
SELECT qyjbxxb
for nIndex=1 to ALEN(arr,1)
   arr[nIndex,1]=FIELD(nIndex,'qyjbxxb',1)
   arr[nIndex,2]='qyjbxxb.'+FIELD(nIndex,'qyjbxxb')
   thisform.list2.additem(arr(nIndex,1))
ENDFOR
SELECT qyzycpk
for nIndex=3 to (cpzds-1)
   arr[nIndex,1]=FIELD(nIndex,'qyzycpk',1)
   arr[nIndex,2]='qyzycpk.'+FIELD(nIndex,'qyzycpk')
   thisform.list2.additem(arr(nIndex,1))
endfor
    然后，将list2的InteractivChange事件代码修改为：
xszd=''
FOR xh=1 TO THISFORM.LIST2.LISTCOUNT
   IF thisform.list2.Selected(xh)
     xszd=arr[thisform.list2.ListIndex,2]+IIF(XH<THISFORM.LIST2.LISTCOUNT,[,],[])
   ENDIF
ENDFOR
运行过程中出现以下错误：