Local lcdesign DO CASE CASE thisform.combo1.displayvalue='=' lcdesign="modacad.key3=thisform.text1.value" CASE thisform.combo1.displayvalue='$' lcdesign="modacad.key3$thisform.text1.value" ENDCASE WITH main.lstSource .RowSourcetype = 3 .Rowsource = 'SELECT mainkey FROM ("U:\Data\modacad.dbf")'+; 'WHERE &lcdesign order BY mainkey into cursor result' .ColumnCount = 1 ENDWITHThat is for the first field named Design Number. Now I want to include another field:
LOCAL lcdesign DO CASE CASE thisform.combo1.displayvalue='=' lcdesign="modacad.key3=thisform.text1.value" CASE thisform.combo1.displayvalue='$' lcdesign="modacad.key3$thisform.text1.value" ENDCASE IF NOT EMPTY( ThisForm.text2.value ) lcDesign = lcDesign + ' AND modacad.key4 = ' + ThisForm.Text2.Value ENDIF SELECT * ; FROM ("U:\Data\modacad.dbf") ; WHERE &lcdesign ; order BY mainkey ; INTO CURSOR crssearchI have another 3 fields now to add into my search. Basically what I am after is that I have 5 Text fields (Text1....Text5) each having a combo (Combo1....Combo5).