cxgrid导出

简介:

uses 中添加 cxGridExportLink


var
  SFD:TSaveDialog;
  FileName,FileExt:String;
begin
  SFD:=TSaveDialog.Create(nil);
  SFD.Filter:='Excel文件 (*.xls)|*.xls';
  SFD.Title:='导出为';
  SFD.DefaultExt:='.XLS';
  SFD.Options:=[ofOverwritePrompt, ofEnableSizing];

    if not SFD.Execute then exit;
    //filename
    FileName:=SFD.FileName;
    FileExt:=UpperCase(ExtractFileExt(FileName));

    if FileExt='.XLS' then
    begin
        ExportGridToExcel(FileName, cxGrid1, True, True);
    end
    else
      begin
          Application.MessageBox('不支持的导出格式', 'xx');
          Exit;
      end;
    SFD.Free











本文转自鹅倌51CTO博客,原文链接:http://blog.51cto.com/kaixinbuliao/1179003 ,如需转载请自行联系原作者





相关文章
|
C#
C#之四十三 从DataGridView导出数据到Excel
C#之四十三 从DataGridView导出数据到Excel
92 0
cxgrid多选获取记录。不需要设置KeyFieldName
procedure CopyGridRecordToJsn(pvDataSet: TcxGridDBTableView; pvValueJsn:    ISuperObject);var  i, j: Integer;  lvField: TcxGridDBColumn;  lvItem: I...
795 0