>CLOSE all >USE bill in 0 >USE contact in 0 >lcField = UPPER(alltrim(thisform.text1.value))&& char type >replace IN contact ; > FOR lcField==lookup(Evaluate("Bill." + lcField), lcField , Evaluate("Bill." + lcField) AND NOT EOF('bill')); >val with VAL(bill.bill_value) > >>
FOR lcField==lookup(Evaluate([Bill.] + lcField), lcField , Evaluate([Bill.] + lcField)) AND NOT EOF([bill]);