Imports System.Data.SqlClient
Imports System.Data
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.CrystalReports
Imports System.IO
Partial Class Student_Application_Form
Inherits System.Web.UI.Page
Dim connectdb As New ConnectDB
Dim rpt As New ReportDocument
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
rpt.Load(Server.MapPath("rptStudentApplicationForm.rpt"), OpenReportMethod.OpenReportByDefault)
Dim cmd As DataTable = connectdb.GetDataTable("SELECT * FROM V_Register_Report WHERE Reg_nationalID = '" & Request("Reg_nationalID") & "'")
If cmd.Rows.Count > 0 Then
rpt.SetDataSource(cmd)
rptRegister_Report.ReportSource = rpt
Else
MsgBox("ไม่พบข้อมูลรายงานที่ท่านต้องการ")
Response.Redirect("~\frmPrint_Report.aspx")
End If
End If
End Sub
End Class
พอกดปุ่ม Export ของคอนโทรเอง จะเกิดข้อความว่า "เอ็กซ์ปอร์ตโดยใช้ตัวเลือกที่คุณกำหนดล้มเหลว โปรดตรวจสอบตัวเลือกที่คุณกำหนดแล้วลองอีกครั้ง" หรือแม้จะสั่งพิมพ์ก็เกิด Error เหมือนข้อความด้านบนครับ ผมใช้ MS VS 2010 นะครับ ส่วน Crystal Report ก็ Crystal Report for Visual Studio 2010 คับ