alex_dchЗдравствуйте!

мне нужно подготовить таблицу для отчета в котором 3 колонки, пытаюсь
сделать в поле print_pos числовой признак колонки.. а фокс изменяет только первую запись, и все.. помогите, плиз, в чем проблема??

я пробовал несколько вариантов, ничего не получается (они в коментах)


select e1.artikul, ;
e1.name_nom, ;
e1.tov_color, ;
e1.tov_size, ;
0000 as print_pos, ;
recno() as rec_no ;
from aden_end1 e1 ;
into dbf c:\aden_end2


select aden_end2
go top

pos = 0

scan

DO CASE
CASE rec_no = pos + 1
repl print_pos with 1 for rec_no = pos + 1
CASE rec_no = pos + 2
repl print_pos with 2 for rec_no = pos + 2
CASE rec_no = pos + 3
repl print_pos with 3 for rec_no = pos + 3
ENDCASE


*!* DO CASE
*!* CASE rec_no = pos + 1
*!* update aden_end2 set print_pos = 1 where rec_no = pos + 1
*!* CASE rec_no = pos + 2
*!* update aden_end2 set print_pos = 2 where rec_no = pos + 2
*!* CASE rec_no = pos + 3
*!* update aden_end2 set print_pos = 3 where rec_no = pos + 3
*!* ENDCASE


*!* if rec_no = pos + 3
*!* update aden_end2 set print_pos = 1 where rec_no = pos + 1
*!* endif

*!* if rec_no = pos + 2
*!* update aden_end2 set print_pos = 2 where rec_no = pos + 1
*!* endif

*!* if rec_no = pos + 3
*!* update aden_end2 set print_pos = 3 where rec_no = pos + 1
*!* endif

pos = pos + 3

endscan


табличку с образцами данных прилагаю
Ну посмотри же внимательней на фрагмент! Ты делаешь SCAN, а внутри него делаешь replace... for... . Именно эта команда (первая из трех в Do Case) тебя и выбрасывает на конец файла. Соответственно и SCAN заканчивается...
В этом случае надо сделать примерно так:

alex_dch select aden_end2
go top

pos = 0

scan

repl print_pos with 1 for rec_no = pos + 1
repl print_pos with 2 for rec_no = pos + 2
repl print_pos with 3 for rec_no = pos + 3


pos = pos + 3

endscan


case можно не применять, условие for его фактически дублирует.

теперь делает первые 3 записи. видимо не понимает что pos + 3

в упор не пойму в чем наврал
Объясняю (если не поймете - перечитайте еще несколько раз):
Условие "for..." в различных командах аналогично сканированию базы данных от первой записи до последней и проверке условия .
Поэтому, после выполнения команды "repl print_pos with 3 for rec_no = pos + 3" указатель окажется на последней записи таблицы . Поэтому цикл SCAN прекратится .
Как результат: изменятся значения только у трех записей.
А чем Вас мое решение не устраивает? Или решение ВладимираМ? Или Hel!Riser'a? Или Вы их просто не понимаете?