LOCAL lnFor thisform.text42.Value = thisform.list1.value CLOSE all SELECT 0 USE dnc FOR lnFor 1 TO 15 IF thisform.text42.Value = [Q]+TRANSFORM(lnFor) LOCATE FOR flag1=1 ThisForm.Label1.Caption = q1 ThisForm.Label2.Caption = q11 EXIT ENDIF NEXT CLOSE all USE answers>hi all,
> lcKeyField = thisform.list1.value > thisform.text42.Value= lcKeyField > if thisform.text42.Value = UPPER("q1") > CLOSE all > USE dnc IN 0 > SELECT dnc > LOCATE FOR flag1=1 > ThisForm.Label1.Caption = q1 > ThisForm.Label2.Caption = q11 > ELSE > USE dnc IN 0 > SELECT dnc > if thisform.text42.Value = UPPER("q2") > LOCATE FOR flag1=2 > ThisForm.Label1.Caption = dnc.q1 > ThisForm.Label2.Caption = dnc.q11 > ELSE > CLOSE all > USE dnc IN 0 > SELECT dnc > if thisform.text42.Value = UPPER("q3") > LOCATE FOR flag1=3 > ThisForm.Label1.Caption = dnc.q1 > ThisForm.Label2.Caption = dnc.q11 > ELSE > CLOSE all > USE dnc IN 0 > SELECT dnc > if thisform.text42.Value = UPPER("q4") > LOCATE FOR flag1=4 > ... > ... > . > . > CLOSE all > USE dnc IN 0 > SELECT dnc > if thisform.text42.Value = UPPER("q15") > LOCATE FOR flag1=15 > . > . > . > >ENDIF >ENDIF >ENDIF >ENDIF > > CLOSE all >USE answers IN 0 >Select answers > >>thanks