Keep in mind that this code will works only if in thisform.list1.value you have values from Q1 to Qxxxx
>hi,
>thanks again.
>
>>Better:
>>
>>LOCAL lnFor
>>thisform.text42.Value = thisform.list1.value
>>CLOSE all
>>SELECT 0
>>USE dnc
>>lnFor = VAL(SUBSTR(thisform.text42.Value,2))
>>LOCATE FOR flag1 = m.lnFor
>>ThisForm.Label1.Caption = q1
>>ThisForm.Label2.Caption = q11
>>CLOSE all
>>USE answers
>>
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.