Sorry, Copy and paste problem:

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 = m.lnFor
       ThisForm.Label1.Caption = q1
       ThisForm.Label2.Caption = q11
       EXIT
    ENDIF
NEXT
CLOSE all
USE answers

>hi,
>thank you very much,
>but still i have another problem , if my choice is q2, i need to change flag1 to 2,..q3 flag1 must be=3...etc
>thanks.
>>

>>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,
>>>
>>>i need help to rewrite this code under(another way),
>>>

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