[koly86]

Может кому то будет интересно.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

ConnectionWord(self);     ItemN:=1;  //таблица в вордовском документе        row:=2;  //Строка         j:=1;  //Столбец        ii:=2; //Первая строка для объединения строк  numLines:=1;  //хранит количество добавленных строк   for I := 0 to 5 do //6 - количество разделов   begin     TD:=TadoQuery.create(nil);     with TD do       begin         try             connection:=DataModule1.ADOConnection;             sql.Text:=Format(SQLtext,[inttostr(i),inttostr(KafCode), inttostr(LearnYear)]);             ExecSQL;             open;         if td.RecordCount < 1 then  //Если пусто добавляет пустую строку           begin             if numLines > 1 then   WDoc.Tables.Item(ItemN).Rows.Add(EmptyParam);              WDoc.Tables.Item(ItemN).Cell(row+numLines,j).Range.Text:= RazdelName(i);               numLines := numLines+1;               row:=row+1;               ii:=ii+1;            end;         while not TD.Eof do           begin              for Ind := 0 to td.RecordCount-1 do //Количество записей в подразделе                   begin                      if numLines > 1 then   WDoc.Tables.Item(ItemN).Rows.Add(EmptyParam);                        WDoc.Tables.Item(ItemN).Cell(row, 2).Range.Text:=  td.FieldByName('Meripriyt').AsString;                        WDoc.Tables.Item(ItemN).Cell(row, 3).Range.Text:=  td.FieldByName('Srok_vip').AsString;                        WDoc.Tables.Item(ItemN).Cell(row, 4).Range.Text:=  td.FieldByName('Otvetstven').AsString;                        WDoc.Tables.Item(ItemN).Cell(row, 5).Range.Text:=  td.FieldByName('Note').AsString;                        td.Next;                      numLines := numLines+1;                      inc(row);                   end;                      WDoc.Tables.Item(ItemN).Cell(i+numLines,j).Range.Text:= td.FieldByName('NAME_VIDDEYAT').AsString;                      if td.RecordCount > 1 then                         begin                            WDoc.Tables.Item(ItemN).Cell(ii,j).Merge(WDoc.Tables.Item(ItemN).Cell(1+numLines,j));                            ii:= numLines+1;                         end;                            ii:= numLines+1;            end;         finally            Free;                         end;    WApp.Visible := true;   end;

[Zefirinka]

Что она выводит?

[koly86]

Сообщение от Zefirinka

Что она выводит?

данные из запроса
const SQLText = 'select * from table '

[Zefirinka]

А почему в цикле явно задано 6 итераций, а разделов 5? Непонятно

Код:

1	for I := 0 to 5 do //5 - количество разделов

А запрос какого формата?

[koly86]

Сообщение от Zefirinka

А почему в цикле явно задано 6 итераций, а разделов 5? Непонятно

Код:

А запрос какого формата?

потому что в вордовском документе весь первый столбец = уникальные названия раздела, и к каждому этому разделу идет сколько угодно под пунктов, которые выводятся с 2-го-5 столбец

[Zefirinka]

Попробуйте свой код обрамить в [CODE*][*/CODE] (только без звездочек), а то неудобно читать.