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