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