select 1 * USE MSTR EXCL use mstr LOCATE FOR BILLNO=THISFORM.TEXT1.VALUE .AND. DATEIN=THISFORM.TEXT2.VALUE IF FOUND() DO WHILE .T. .AND. !EOF() SET FILTER TO BILLNO=THISFORM.TEXT1.VALUE .AND. DATEIN=THISFORM.TEXT2.VALUE DELETE all *PACK * SKIP GO TOP IF EOF() EXIT ENDIF ENDDO ENDIF Select 1 use mstr 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 *Zap 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.