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