Галактика в вопросах и ответах

Поделитесь опытом как организовать горизонтальный цикл для вывода данных в АРД. Или может есть какие идеи как по другому можно реализовать поставленную цель. Суть такова: к примеру вывести весь каталог МЦ но не в один столбец - а в три колонки.
Katmc.name1 Katmc.name2 Katmc.name3
Katmc.name4 Katmc.name5 Katmc.name6
Katmc.name7 Katmc.name8 Katmc.name9
...... ....... ...... ....... .............................

Можно закинуть всё в переменные и выводить их... Что-то в этом роде:

Код: Выделить всё

var
mc1, mc2, mc3 : string;
i : word;
...
.{table tab1
i := 0;
.{?internal; i<3;
.begin
    if mc3 = '' and mc2 <> '' then mc3 := katmc.name;
    if mc2 = '' and mc1 <> '' then mc2 := katmc.name;
    if mc1 = '' then mc1 := katmc.name;
    inc(i);
end.
.}
.{?internal; i=3;
.fields
  mc1 mc2 mc3
.endfields
^ ^ ^
.begin
    i := 0;
    mc1 := '';
    mc2 := '';
    mc3 := '';
end.
.}
.}
.fields
  mc1 mc2 mc3
.endfields
^ ^ ^

Либо с документацией разбираться.

тока в ард
.{horizontal while i<=RecordsInTable(ff.tnhOper)+1
┬──────────────
.begin
i:=i+1;
end.
.}
в присоединенке не пашет - там тока в Excel выгнать.

Галактика в вопросах и ответах

Горизонтальный цикл в ард ? Реально ?

Горизонтальный цикл в ард ? Реально ?