Dim Report1 As New CrystalReport1 Report1.SetParameterValue("crTextBox", Me.TextBox1.Text) CrystalReportViewer1.ReportSource = Report1
{?crTextBox}
Dim dt As DataTable dt = SO.Get_IncomeReportAll(Session("CompID"), clsFunction.ChangeDTP(Me.ddtpFrom_main.Value), clsFunction.ChangeDTP(Me.ddtpTo_main.Value)) Dim rpt As New ReportDocument() rpt.Load(Server.MapPath("rptIncome.rpt")) rpt.SetDataSource(dt) rpt.SetParameterValue("AllRevenue", Me.lblRevenueAll.Text) rpt.SetParameterValue("AllExpen", Me.lblExpenditureAll.Text) rpt.SetParameterValue("AllRemain", Me.lblRemainAll.Text) Me.CrystalReportViewer1.ReportSource = rpt Me.CrystalReportViewer1.RefreshReport() rpt.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, True, "Report")
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง