我用了好多方法还是无法从dBgrid导出到excel?大家有范例吗??
用了
代码如下:
var
ExpClass:TDBGridEhExportClass;
Ext:String;
begin
SaveDialog1.FileName := '';
Form1.ActiveControl:=dbgrideh1;
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; 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,DBGridEh1,SaveDialog1.FileName,False);//其中false为局部数据
end;
end;
end;
end;如下报错怎么解决啊?
[Error] FormManage.pas(240): Undeclared identifier: 'TDBGridEhExportClass'
[Error] FormManage.pas(248): Undeclared identifier: 'TDBGridEhExportAsXLS'
[Error] FormManage.pas(249): Undeclared identifier: 'TDBGridEhExportAsCSV'
[Error] FormManage.pas(250): Undeclared identifier: 'TDBGridEhExportAsText'
[Error] FormManage.pas(254): Operator not applicable to this operand type
[Error] FormManage.pas(258): Undeclared identifier: 'SaveDBGridEhToExportFile'
[Error] FormManage.pas(262): '.' expected but ';' found
[Fatal Error] FormLogin.pas(46): Could not compile used unit 'FormManage.pas'
用了
代码如下:
var
ExpClass:TDBGridEhExportClass;
Ext:String;
begin
SaveDialog1.FileName := '';
Form1.ActiveControl:=dbgrideh1;
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
3: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; 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,DBGridEh1,SaveDialog1.FileName,False);//其中false为局部数据
end;
end;
end;
end;如下报错怎么解决啊?
[Error] FormManage.pas(240): Undeclared identifier: 'TDBGridEhExportClass'
[Error] FormManage.pas(248): Undeclared identifier: 'TDBGridEhExportAsXLS'
[Error] FormManage.pas(249): Undeclared identifier: 'TDBGridEhExportAsCSV'
[Error] FormManage.pas(250): Undeclared identifier: 'TDBGridEhExportAsText'
[Error] FormManage.pas(254): Operator not applicable to this operand type
[Error] FormManage.pas(258): Undeclared identifier: 'SaveDBGridEhToExportFile'
[Error] FormManage.pas(262): '.' expected but ';' found
[Fatal Error] FormLogin.pas(46): Could not compile used unit 'FormManage.pas'
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货