>use mstr >local lnRecno >lnRecno = reccount() >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>And I was sure that we have agreed that billno shall be 1,2,3,4,5... and not 05_0001!!! Remember that you SHOW billno as 05_0001, but you store it as 1. Please don't ask me to repeat that more times.
>>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
>>>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>>>
>>>>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 >>>>>>>>*********************************************************
>>>> 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.