怎么复制DBGridEh 里面的数据 可以到 XLS 里面粘贴

Question

怎么复制DBGridEh 里面的多条记录然后 可以到 XLS 里面粘贴
有可能做到吗？ 怎么做？

Answer 1

DBGridEh本身没有这个功能的吧。你要自己处理DataSet了。

Answer 2

1.use  DBGridEhImpExp 单元
2.属性EditActions/geaCopyEH等设为true;
看看这三个函数
procedure DBGridEh_DoCutAction(DBGridEh: TCustomDBGridEh; ForWholeGrid: Boolean);
procedure DBGridEh_DoCopyAction(DBGridEh: TCustomDBGridEh; ForWholeGrid: Boolean);
procedure DBGridEh_DoPasteAction(DBGridEh: TCustomDBGridEh; ForWholeGrid: Boolean);
procedure DBGridEh_DoDeleteAction(DBGridEh: TCustomDBGridEh; ForWholeGrid: Boolean);

Answer 3

导出到ＸＬＳ：
 uses DBGridEhImpExp ; SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, DBGridEh1, FileNameStr, True);或：
procedure savegrid(grid:TDBGridEh;filename:string='');
var ExpClass:TDBGridEhExportclass;
   Ext:String;
   savedlg:tsavedialog;
begin
   savedlg:=tsavedialog.Create(nil);
   savedlg.Filter:='Excel 文档 (*.xls)|*.XLS|Text files (*.txt)|*.TXT|Comma separated values (*.csv)|*.CSV|HTML file (*.htm)|*.HTM|Rich Text Format (*.rtf)|*.RTF';
   SaveDlg.FileName := filename;
   SaveDlg.DefaultExt := 'XLS';
   if SaveDlg.Execute then    begin
       case SaveDlg.FilterIndex of
           1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
           3: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
           4: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
           5: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
           2: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
       else
            ExpClass := nil; Ext := '';
       end;
       if ExpClass <> nil then    begin
          if UpperCase(Copy(SaveDlg.FileName,Length(SaveDlg.FileName)-2,3)) <> UpperCase(Ext) then
              SaveDlg.FileName := SaveDlg.FileName + '.' + Ext;
          SaveDBGridEhToExportFile(ExpClass,grid,SaveDlg.FileName,true);        end;
   end;
   Savedlg.Destroy;
end;

Answer 4

哈OK 谢谢 xiaocuo_zrf(小错) ( ) 信誉：101