PrintDBGridEh的使用问题,PrintDBGridEh导出到Excel中任何去掉数值类型前面的”¥“符号?还有一个问题,在导出到EXCEL文件时,如何取出文件保存的路径?
解决方案 »
- 树形编号的问题,多谢啊!!!!!!!!!!!!
- 报表:QuickRep如何实现象Excel那样可以选择性的选择某些列来打印?
- 请问: installshield express 和 installshield professtion edition 的区别??sorry .. 分用光了
- 初用DELPHI 关于使用CELL控件的问题
- 请教:SMS PDU的汉字问题
- 简单的问题,我很菜鸟。
- 关于文件读写的问题,在线等待!
- 谁能给我一份zlib.pas+zlibconst.pas的源码?(第一个发的人得分)
- Adobe 的AcroPDF.ocx控件的发布问题
- 我签约了
- 如何制作出类似QQ主界面
- TServerSocket 该控件到哪里去找?
1) 数值类型前面的”¥“符号 ,字段类型
2)
SaveDialog1.FileName := 'file1';
if (ActiveControl is TDBGridEh) then
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
5: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
else
ExpClass := nil; Ext := '';
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass,TDBGridEh(ActiveControl),
SaveDialog1.FileName,False);
end;
end;