![]() |
|
#1
|
|||
|
|||
![]() Всем привет у меня такая проблема не могу правильно вывести из dbgrid в word подскажите что не так
Код:
procedure TfrmMain.GoToWord(Sender: TObject); var W, Table: Variant; i, j: Integer; begin W := CreateOleObject('Word.Application'); W.Documents.Add; W.ActiveDocument.Tables.Add(W.ActiveDocument.Range, dbgrMain.DataSource.DataSet.RecordCount, dbgrMain.DataSource.DataSet.FieldCount); Table := W.ActiveDocument.Tables.Item(1); Table.Style := 'Сетка таблицы'; dbgrMain.DataSource.DataSet.First; for i := 0 to dbgrMain.DataSource.DataSet.RecordCount-1 do begin for j := 0 to dbgrMain.DataSource.DataSet.FieldCount - 1 do Table.Cell(i+1,j+1).Range.InsertBefore(dbgrMain.DataSource.DataSet.Fields[j].AsString); dbgrMain.DataSource.DataSet.Next; end; W.Visible := True; end; ![]() Последний раз редактировалось Admin, 22.03.2010 в 17:50. |