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