select 1 use mstr delete for BILLNO=THISFORM.TEXT1.VALUE .AND. DATEIN=THISFORM.TEXT2.VALUE Append From Dbf('temp') for thisform.text1.value>0 replace w1 with thisform.text14.value replace w2 with thisform.text16.value With thisform.grid1 .recordsource = '' Select temp DELETE ALL .recordsource = 'temp' thisform.text1.SetFocus thisform.refresh endwith ****************** With thisform.grid1 .recordsource = '' Select temp * Zap .recordsource = 'grid1' thisform.text1.SetFocus thisform.refresh endwith ********************** ******************************************** thisform.text1.value=0 thisform.text2.value=ctod(" / / ") thisform.text3.value=space(10) thisform.text4.value=space(10) thisform.text5.value=space(10) thisform.text6.value=0 thisform.text7.value=0 thisform.text8.value=0 thisform.text10.value=0thanks.