Данные из DBGrid в Word

← →
Солер (2004-09-17 15:07) [0]

Уважаемые, Мастера!
Нужно данные из DBGrid перенести в Word,
но в итоге Word выводит пустую таблицу без данных
В чём ошибка?
Спасибо.
procedure TForm1.Button2Click(Sender: TObject);
var
i, j,Col, Row: Integer;
begin
Col := DBGrid1.Columns.Count;
Row := DBGrid1.DataSource.DataSet.RecordCount + 1;
WordDoc.Tables.Add(Worddoc.Range, Row, Col,EmptyParam, EmptyParam);
wordapp.Visible:=true;
DBGrid1.Columns.Items[0].Title.Caption ;
for j := 1 to Col - 1 do
begin
DBGrid1.Columns.Items[j].Title.Caption;
worddoc.Tables.Item(1).Columns.Item(j + 1);
end;

DBGrid1.DataSource.DataSet.First;
for i := 1 to Row - 1 do
begin
for j := 0 to Col - 1 do
begin
DBGrid1.Columns.Items[j].Field.AsString;
DBGrid1.DataSource.DataSet.Next;
end;
DBGrid1.DataSource.DataSet.First;

end;
end;

← →
Роман Снегирев (2004-09-17 15:16) [1]

ты где взял этот код?
например вот это что такое?
DBGrid1.Columns.Items[0].Title.Caption ;
или вот это
DBGrid1.Columns.Items[j].Field.AsString;
а уж вот это
for i := 1 to Row - 1 do
begin
...
DBGrid1.DataSource.DataSet.First;

end;

Данные из DBGrid в Word Найти похожие ветки