主题:请问,如何将水晶报表导出到word文档?
yimching
[专家分:0] 发布于 2006-08-26 19:24:00
请问,如何将水晶报表导出到word文档?
回复列表 (共1个回复)
沙发
telancs [专家分:680] 发布于 2006-08-27 22:01:00
水晶报表的自带功能就有。
string Conn= ConfigurationSettings.AppSettings.Get("Con");
SqlConnection myconn=new SqlConnection(Conn);
string sql="select * from PartNumber";
DataSet ds=new DataSet();
SqlDataAdapter SDA=new SqlDataAdapter(sql,myconn);
try
{
SDA.Fill(ds,"PartNumber");//将表写入DataSet
}
catch
{
Response.Write("<script>history.back();alert('查询数据过多或数据问题!');</script>");
Response.End();
}
if (ds.Tables[0].Rows.Count>0)
{
rptyi.SetDataSource(ds.Tables[0]);
// 声明变量并获取导出选项。
ExportOptions exportOpts = new ExportOptions();
DiskFileDestinationOptions diskOpts = new DiskFileDestinationOptions();
exportOpts = rptyi.ExportOptions;
// 设置导出格式。
exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat;
exportOpts.ExportDestinationType = ExportDestinationType.DiskFile;
// 设置磁盘文件选项。
string pdfname="cha"+DateTime.Now.ToShortDateString()+"_"+DateTime.Now.ToLongTimeString().Replace(":","-")+"_"+DateTime.Now.Millisecond.ToString()+".pdf";
diskOpts.DiskFileName = Server.MapPath("PDF/"+pdfname);
exportOpts.DestinationOptions = diskOpts;
rptyi.Export();
rptyi.Dispose();
Response.Write("<script>window.open('pdf/"+pdfname+"');history.go(-1);</script>");
}
else
{
Response.Write("<script>history.back();alert('没有满足您查询条件的数据,请重新输入查询条件!');</script>");
Response.End();
}
我来回复