use mstr local lnRecno lnRecno = recno() Append From Dbf('temp') goto lnRecno + 1 && if dbf('temp') contains no records, this line will fail, so you must check that before you append in the preceding line scan rest && without REST, you scan all records! replace w1 with thisform.text14.value, w2 with thisform.text16.value, dis with thisform.text27.value, net with thisform.text28.value replace billno with val(right (thisform.text1.Value,4)), datein with date() endscan>hi all,
>item no value .........billno datein total >1 100 0 space 0 >2 250 0 >3 40 1 01/01/2005 390 >>********************************************************
>i need to see at my table as >item no value .........billno datein total >1 100 1 01/01/2005 390 >2 250 1 01/01/2005 390 >3 40 1 01/01/2005 390 >>*********************************************************
> use mstr > Append From Dbf('temp') >scan > replace w1 with thisform.text14.value > replace w2 with thisform.text16.value > *INSERT INTO mstr(billno,datein) VALUES (val(right (thisform.text1.Value,4)),DATE())&& in this case it append new record but i need to insert at the same records > replace dis with thisform.text27.value > replace net with thisform.text28.value >endscan >>thanks.