>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 >>>>