谁有EHLIB?? (100分)

  • 主题发起人 主题发起人 lldhz
  • 开始时间 开始时间
L

lldhz

Unregistered / Unconfirmed
GUEST, unregistred user!
1,我下栽了N(N>7)次的EHLIB了(Playicq等地方都下载过了),
每次安装不是少文件就是安装后运行的时候找不到文件,
哪位大哥大姐有可以用的能不能发1个给我。感激不尽……
2,能不能就它的PRINTDBGRIDEH给我个例子
EMail:lld_hz@163.com
 
马上发 2.6
 
http://51delphi.y365.com/download/ehlib24.rar
 
china_peng:
谢谢,收到,安装好了!
能不能就PtintDBGridEh给个例子??
 
use DBGridEhImpExp


procedure TForm1.ppmSaveSelectionClick(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
Ext:String;
begin
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;
end;

注意:
要先全选内容
dbGrideh1.selection.selectall;
 
试试先,可以的话,分就给两位了。。。
 
多人接受答案了。
 
后退
顶部