 |
|
เอา Code มาแชร์ครับ ทำบน VB.NET หรือ C#
Code (VB.NET)
Private rpt As ReportDocument
Protected Sub Page_Load(sender As Object, e As EventArgs)
rpt = New ReportDocument()
rpt.Load(Server.MapPath("../Rpt/myReport.rpt"))
Dim db = UtilityClass.GetDatabaseConnection()
rpt.SetDatabaseLogon(db.UID, db.UPWD, db.HOST, db.DBNAME)
rpt.SetParameterValue("XXXX", YYYYY)
Me.rptCrystal.ReportSource = rpt
rptCrystal.PrintMode = CrystalDecisions.Web.PrintMode.ActiveX
End Sub
Protected Overrides Sub OnUnload(e As EventArgs)
MyBase.OnUnload(e)
Try
If rpt IsNot Nothing Then
rpt.Close()
rpt.Dispose()
GC.Collect()
End If
Catch ex As Exception
End Try
End Sub
Code (C#)
private ReportDocument rpt;
protected void Page_Load(object sender, EventArgs e)
{
rpt = new ReportDocument();
rpt.Load(Server.MapPath("../Rpt/myReport.rpt"));
var db = UtilityClass.GetDatabaseConnection();
rpt.SetDatabaseLogon(db.UID, db.UPWD, db.HOST, db.DBNAME);
rpt.SetParameterValue("XXXX", YYYYY);
this.rptCrystal.ReportSource = rpt;
rptCrystal.PrintMode = CrystalDecisions.Web.PrintMode.ActiveX;
}
protected override void OnUnload(EventArgs e)
{
base.OnUnload(e);
try
{
if (rpt != null)
{
rpt.Close();
rpt.Dispose();
GC.Collect();
}
}
catch (Exception ex)
{
}
}
|
 |
 |
 |
 |
Date :
2014-11-21 17:28:26 |
By :
mr.win |
|
 |
 |
 |
 |
|
|
 |