hi Mr.Tore
thank you,
i try but still change all records,and it did not add new bill as 05_0002
after save.

all the code under

SELECT MAX(billno) from mstr INTO ARRAY laAarray
thisform.text1.value=(RIGHT(STR(YEAR(mstr.datein),4),2) + '_'+RIGHT(STR(10000+mstr.billno+1,5),4))

Select 1
 use mstr
local lnRecno
lnRecno = recno()
Append From Dbf('temp')
goto lnRecno + 1 && if dbf('temp') contains no records, this line will fail, so you must check that before you append in the preceding line
scan rest && without REST, you scan all records!
  replace w1 with thisform.text14.value, w2 with thisform.text16.value, dis with thisform.text27.value, net with thisform.text28.value
  replace billno with val(right (thisform.text1.Value,4)), datein with date()
endscan

  With thisform.grid1
   .recordsource = ''
   Select temp
   .recordsource = 'temp'
   thisform.text1.SetFocus
   thisform.refresh
  endwith  
 
  with thisform.Grid1
 .Recordsource = .Recordsource
endwith

  ********************************************
  thisform.text1.value=space(10)
  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
SELECT mstr
SELECT MAX(billno) from mstr INTO ARRAY laAarray
thisform.text1.value=(RIGHT(STR(YEAR(mstr.datein),4),2) + '_'+RIGHT(STR(10000+laAarray[1]+1,5),4))


With thisform.grid1
   .recordsource = ''
   Select temp
   delete all
   .recordsource = 'temp'
   thisform.text1.SetFocus
   thisform.refresh
  endwith  
  
 
   thisform.grid1.refresh

thanks

>Hi Mohammed,
>
>I see two serious errors. After the APPEND FROM, you are changing all the records, and not only the appended records. And Insert adds new records, that is the purpose of that command! I also suggest you combine all the replace commands into fewer, this may be very important in a multiuser scenario.

>use mstr
>local lnRecno
>lnRecno = recno()
>Append From Dbf('temp')
>goto lnRecno + 1 && if dbf('temp') contains no records, this line will fail, so you must check that before you append in the preceding line
>scan rest && without REST, you scan all records!
>  replace w1 with thisform.text14.value, w2 with thisform.text16.value, dis with thisform.text27.value, net with thisform.text28.value
>  replace billno with val(right (thisform.text1.Value,4)), datein with date()
>endscan

>
>
>>hi all,
>>
>>i try to insert billno,datein for all records at my table as under,
>>but i see the billno,and datein at the last record for my bill as
>>

>>item no   value .........billno  datein       total
>>1         100            0       space         0
>>2         250            0
>>3         40             1       01/01/2005    390
>>

>>********************************************************
>>

>>i need to see at my table as
>>item no   value .........billno  datein       total
>>1         100            1      01/01/2005    390
>>2         250            1      01/01/2005    390
>>3         40             1      01/01/2005    390
>>

>>*********************************************************
>>i try with this code under,but it change all billno and datein for all records at mytable
>>

>>  use mstr
>>  Append From Dbf('temp')
>>scan
>>   replace w1 with thisform.text14.value
>>  replace w2 with thisform.text16.value
>> *INSERT  INTO  mstr(billno,datein) VALUES (val(right (thisform.text1.Value,4)),DATE())&& in this case it append new record but i need to insert at the same records
>>  replace dis with thisform.text27.value
>>  replace net with thisform.text28.value
>>endscan
>>

>>thanks.