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