CLOSE all lcTable1 = alltrim(thisform.text5.value) lcTable2 = alltrim(thisform.text6.value) lcBillValue = lcTable1. bill_value&&"lcTable1" is not an object Use ( lcTable1) in 0 Use ( lcTable2) in 0 lcField = alltrim(thisform.text1.value) replace IN lcTable2 ;&& Too few arguments FOR EVAL(lcField)==LookUp(lcTable1.&lcfield), EVAL(lcField), (lcTable1.&lcfield)) AND NOT EOF('lcTable1'); NEWVALUE with VAL(lcBillValue)the old code i use it, it works
CLOSE all USE bill in 0 USE contact in 0 lcField = alltrim(thisform.text1.value) replace IN contact ; FOR EVAL(lcField)==LookUp(bill.&lcfield, EVAL(lcField), bill.&lcfield)AND NOT EOF('bill'); newvalue with bill.bill_value>M
>>CLOSE all >> >>USE alltrim(thisform.text5.value) in 0 >>USE alltrim(thisform.text6.value) in 0 >> lcField = alltrim(thisform.text1.value) >> >>replace IN alltrim(thisform.text6.value) ; >> FOR EVAL(lcField)==LookUp(alltrim(thisform.text5.value.&lcfield), EVAL(lcField), alltrim(thisform.text5.value.lcfield)) AND NOT EOF('alltrim(thisform.text5.value)'); >>val with VAL(ALLTRIM(thisform.text5.value.bill_value)) >>