lcwhere="modacad.key3"+thisform.combo1.displayvalue+"thisform.textbox1.value" SELECT * ; FROM ("U:\Data\modacad.dbf") ; WHERE &lcwhere ; order BY mainkey ; INTO CURSOR crssearchCaroline
>>Case ThisForm.Combo1.DisplayValue == "=" >>>>When you look at this in the debugger what exactly is the DisplayValue?
>>>>LOCAL lcwhere1 >>>>SET EXCLUSIVE OFF >>>>SET DELETED ON >>>> >>>>DO CASE >>>> CASE thisform.combo1.displayvalue='=' >>>> lcwhere="modacad.key3=thisform.combo1.displayvalue" >>>> CASE thisform.combo1.displayvalue='==' >>>> lcwhere="modacad.key3==thisform.combo1.displayvalue" >>>> CASE thisform.combo1.displayvalue='$' >>>> lcwhere="modacad.key3$thisform.combo1.displayvalue" >>>>ENDCASE >>>>SELECT * ; >>>>FROM ("U:\Data\modacad.dbf") ; >>>>WHERE &lcwhere ; >>>>order BY mainkey ; >>>>INTO CURSOR crssearch >>>>>>>>
>>>>>LOCAL lcwhere1, lcwhere2, lcwhere3 >>>>>SET EXCLUSIVE OFF >>>>>SET DELETED ON >>>>> >>>>>lcwhere1="modacad.key3=thisform.combo1.displayvalue" >>>>>lcwhere2="modacad.key3==thisform.combo1.displayvalue" >>>>>lcwhere3="modacad.key3$thisform.combo1.displayvalue" >>>>> >>>>>DO CASE >>>>> CASE 1 >>>>> IF thisform.combo1.displayvalue='=' >>>>> SELECT * ; >>>>> FROM ("U:\Data\modacad.dbf") ; >>>>> WHERE lcwhere1 ; >>>>> order BY mainkey ; >>>>> INTO CURSOR crssearch >>>>> ENDIF >>>>> CASE 2 >>>>> IF thisform.combo1.displayvalue='==' >>>>> SELECT * ; >>>>> FROM ("U:\Data\modacad.dbf") ; >>>>> WHERE lcwhere2 ; >>>>> order BY mainkey ; >>>>> INTO CURSOR crssearch >>>>> ENDIF >>>>> CASE 3 >>>>> IF thisform.combo1.displayvalue='$' >>>>> SELECT * ; >>>>> FROM ("U:\Data\modacad.dbf") ; >>>>> WHERE lcwhere3 ; >>>>> order BY mainkey ; >>>>> INTO CURSOR crssearch >>>>> ENDIF >>>>> >>>>>ENDCASE >>>>>>>>>>