>use Table1 in 0 >use Table2 in 0 >select Table1 >scan > select Table2 > replace; > Field1 with Table1.Field1,; > Field2 with Table1.Field2,; > ... >endscan >>
>>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 >>endscan >> >>>>thanks.
>>>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