一个复合查询条件设计，大侠过来帮我看看

[xymsgw]

我在一个查询表单中，添加三个Check控件，和对应的三个Text用于输入查询条件。
现在我用如下代码实现了对第一个Check1的查询操作，而且也达到了效果，

if empty(thisform.text1.value) and empty(thisform.text2.value) and empty(thisform.text3.value)

messagebox("请输入查询的条件",0+48+0,"注意")
else

locate for 朋友管理系统库_表1.姓名=alltr(thisform.text1.value)

if found()
myform.grid1.SetAll('DynamicForeColor','iif(朋友管理系统库_表1.姓名="'+alltr(thisform.text1.value)+'",RGB(0,35,255),myform.grid1.backcolor)','Column')
myform.grid1.refresh
else
messagebox("没有该记录",0+48+0,"注意")
endif
thisform.release

endif

现在的问题，我如何修改该代码，才能实现对三个Check的查询操作，即是：

当在Check1、Check2和Check3分别对的Text中输入了条件时，点按查询按钮，就可在上级一Grid中高亮显示查到的记录，上述三个Check输入的条件是只对应一个记录的，不同分别对应三个记录。也即是三个Check是一个记录的三个字段。现在成为查询条件了。

望大侠们点指一二。谢了。

[zhongyj]

已經回你的留言了

[xymsgw]

可以实现，但只是对条件Check1可以，我现在要对三个Check条件进行综合查询。

[zhongyj]

你要刷新頁面,我另外給你回了留言

[xymsgw]

怎么没有回答，帮小弟一下吧

[zhongyj]

我已經給你復了三條如果還看不到信息,重新登入CSDN

[jiaxingxing]

如果text1 text2 text3 均为字符型
if empty(thisform.text1.value) and empty(thisform.text2.value) and empty(thisform.text3.value)

messagebox("请输入查询的条件",0+48+0,"注意")
else
x1= allt(thisform.text1.value)
x2= allt(thisform.text2.value)
x3= allt(thisform.text3.value)
cxtj="allt(字段1)=x1 and allt(字段2)=x2 and allt(字段3)=x3"

locate for &cxtj
if found()
xx=recn()
myform.grid1.SetAll('DynamicForeColor','iif(recn()=xx,RGB(0,35,255),myform.grid1.backcolor)','Column')
myform.grid1.refresh
else
messagebox("没有该记录",0+48+0,"注意")
endif
thisform.release

[lz_zxf]

cxtj = ".t."
if thisform.check1.value = .t.
if !empty(thisform.text1.value)
cxtj = cxtj + ".and.field1 = "+thisform.text1.value
endif
endif
if thisform.check2.value = .t.
if !empty(thisform.text2.value)
cxtj = cxtj + ".and.field2 = "+thisform.text2.value
endif
endifif thisform.check3.value = .t.
if !empty(thisform.text3.value)
cxtj = cxtj + ".and.field3 = "+thisform.text3.value
endif
endif

[jiaxingxing]

to lz_zxf(沉香)
你的修改即使一条记录也要查3便的