cxGridten Excele alt seviyelerle birlikte veri aktarımı

[emrgln]

Mrb Arkadaşlar,

cxGridten excele veri aktarıyorum. Ancak aktardığım veri sadece 1. seviye verileri kapsıyor. 2.seviye verileride aktarma ihtiyacım var. Kullandığım kod aşağıda. Yarcımcı olursanız sevinirim.

ilgilenen herkese tşkler.


ExportGridToExcel('d:\deneme.xls', cxGrid1,True, True, True);
ShellExecute(Application.Handle, 'OPEN', PChar('d:\deneme.xls'), nil, nil, SW_SHOWNORMAL);

[emrgln]

Kendi soruma kendim cevap vereyim. Bir yerden buldum. Blki başkalarının da işine yarar.

procedure ExportDetailGridToFile(AFileName: string; AExportType: Integer;
AGrid: TcxGrid; AGridView: TcxCustomGridView;
AExpand, ASaveAll, AUseNativeFormat: Boolean;
const ASeparator, ABeginString, AEndString: string; const AFileExt: string);
var
AGridExport: TcxGridCustomExport;
begin
if AGrid <> nil then
begin
if AFileExt <> '' then
AFileName := ChangeFileExt(AFileName, '.' + AFileExt);
AGridExport := TcxGridTableViewExport.Create(AFileName, AExportType, AGridView, AGrid, nil);
//AGridExport := GetExportClassByDetailGridView(AGridView).Create(AFileName, AExportType, AGridView, AGrid, nil);
AGridExport.SaveAll := ASaveAll;
AGridExport.Expand := AExpand;
AGridExport.UseNativeFormat := AUseNativeFormat;
AGridExport.AddSeparators([ASeparator, ABeginString, AEndString]);
AGrid.BeginUpdate;
try
try
AGridExport.DoExport;
finally
AGridExport.Free;
end;
finally
AGrid.EndUpdate;
end;
end;
end;


Çagrilmasi
ExportDetailGridToFile(AFileName, 1, TcxGrid(Grid), lvDetailDC.GridView, ExpandGrid, pAll, True, '', '', '', '');