Скачать: CL | DM;

Данные из 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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.019 c