hi,
thank you,but when i click mysave command it is save the old data and new data,i mean nothing delete,and i need just new data when i query again.

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=0

thanks.
best regards
m.qasem