Данные из DBGrid в Word [D6, Paradox]
Солер © (2004-09-17 15:07:00)
Уважаемые, Мастера!
Нужно данные из 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:00) [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;
Наверх 
ЧАТ |
Орешник |
|
