IF USED('table1') SELECT table1 ELSE SELECT 0 USE table1 AGAIN ENDIF SELECT * FROM table1 WHERE dvno==THISFORM.TEXT2.VALUE AND table1.dat=thisform.text5.value INTO ARRAY laResults scan DELETE FOR dvno==THISFORM.TEXT2.VALUE AND table1.dat==thisform.text5.value PACK &&infinet loop GO TOP endscan Append From Dbf('temp') SCAN FOR table1.dvno==THISFORM.TEXT2.VALUE AND table1.dat==thisform.text5.value replace dat WITH thisform.text5.value replace dvno WITH thisform.text2.value replace peri WITH thisform.combo2.value endscan DELETE ALL IN temp thisform.grid1.Refresh()thanks.