local lnCurrentRecord, lnTotalRecords lnTotalRecords = reccount() go top scan while recno() <= lnTotalRecords && Don't include newly added records m.char1=char1 m.char2=char2 m.char3=char3 m.char4=char4 m.char5=char5 m.char8=char8 lnCurrentRecord = recno() && remember record position use home append blank replace customer_tel WITH m.char8 replace home WITH m.char2 replace qdate WITH m.char3 replace name WITH m.char4 replace account WITH m.char5 replace bus WITH space(10) replace survey_no WITH space(10) replace list_no WITH val(m.no) replace flag WITH 0 replace n_try WITH 0 goto (lnCurrentRecord) && go back to previous record position ...&& what i must add endscanthanks.
>local lnCurrentRecord, lnTotalRecords >lnTotalRecords = reccount() >go top >scan while recno() <= lnTotalRecords && Don't include newly added records > ... > lnCurrentRecord = recno() && remember record position > append blank > replace ... > goto (lnCurrentRecord) && go back to previous record position > ... >endscan >>
>>>>USE am2 >>>>scan >>>>m.char1=char1 >>>>m.char2=char2 >>>>m.char3=char3 >>>>m.char4=char4 >>>>m.char5=char5 >>>>m.char8=char8 >>>> >>>> >>>> USE home >>>> >>>>m.no=val(list_no)+1 >>>> >>>> APPEND blank >>>> >>>> replace customer_tel WITH m.char8 >>>> replace home WITH m.char2 >>>> replace qdate WITH m.char3 >>>> replace name WITH m.char4 >>>> replace account WITH m.char5 >>>> replace bus WITH space(10) >>>> replace survey_no WITH space(10) >>>> replace list_no WITH val(m.no) && error messageFunction argument value, type, or count is inval >>>> replace flag WITH 0 >>>> replace n_try WITH 0 >>>>endscan >>>>>>>>thanks