close all select a use mbal lnBalance=0 lnGt=0 lnTc=0 lnGt=myentry.credit.value if nKeycode=13 select mbal index on acno to tt seek thisform.acno.value if found() lnBalance=(mbal.balance) lnBalance=lnBalance+lnGt select mbal repl date with (myentry.date.value),balance with lnBalance myentry.balance.value=(mbal.Balance) go top sum(balance) for type="balance" to lnTc myentry.tbalance.value=lnTc endif endif close allMy intention is to replace the balance in balance(=label3).But the data