请问?DBGRIDEH中如何报数据直接导出到EXECL2000中?
解决方案 »
- 汉字与英文单词的区分
- 如何知道一个窗体被打开了啊.不管是不是最小化
- oracle8.x +delphi5 图片存取问题(高手请进)
- 请教---怎样从一指针(无类型指针pointer)处,取固定长度的16进制数?????
- 数据库超时的问题,急,急!!!
- 请教如何在程序中用已写好了的sql脚本创建数据库?
- 深夜求救!
- 数据库记录中间插值
- 如何替换WIN9X开始菜单为自己的菜单
- 誰能提供一個帶源碼的屏保網址?
- 在广州的朋友如果你有时间而且想用DELPHI写软件兼职可以联系我,QQ#373843,[email protected]
- 请推荐数据库建模工具--要求使用简单,最好是有汉化的!还有哪儿有下载!谢谢!
讨论贴:http://expert.csdn.net/Expert/TopicView1.asp?id=1112498
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;