|
楼主 |
发表于 2007-4-25 08:48:53
|
显示全部楼层
用的是按钮,
//************** Version 1.00 Begin ****************//
procedure TYSZKZLFXB.ToolButton5Click(Sender: TObject);
begin
if dsbMaster.DataSet.IsEmpty then
exit;
if SaveDialog.Execute then
begin
if sysutils.FileExists(SaveDialog.FileName) then
begin
if not jsDialogs.OkCancelBox('已有该文件存在,是否替换?', '提示信息',1) then
begin
exit;
end
end;
sheetdoclib.TSheetDocLib.CopySheetToExcel(DocView2,SaveDialog.FileName.ToString);
jsdialogs.showmsg('本报表已成功导出!保存至'+SaveDialog.FileName.ToString+'。','提示信息');
end;
end;
//************** Version 1.00 End ****************// |
|