hi all,

any way to change this code under to new way,idea.

i use this code under vfp8 it works,but i try with vfp5 not working.delete all items.

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

thanks.
m.qasem