การส่งพารามิเตอร์จาก VB.net 2005 ไป Crystal Report for .Net Framework 2.0

เคยทำ Report มาหลายโปรเจคแล้ว พอกลับมาทำ Report สำหรับโปรเจคใหม่ จะต้องมีการส่งพารามิเตอร์จาก VB.Net ไปยัง Crystal Report เขียนโค้ดยังไง ลืมอีกแล้ว (นี่ขนาดยังไม่แก่มากนะเนี่ย คงจะเริ่มแก่ทีละน้อย ๆ แล้ว อิอิ) ก็เลยเอาโค้ดมาไว้ที่นี่ เวลามีโปรเจคใหม่ ๆ จะได้เอาไปใช้ได้เลยดังนี้

1. สร้างฟอร์มใหม่
2. ลาก CrystalReportViewer มาใส่ไว้ในฟอร์มเฉย ๆ ไม่ต้องตั้งค่าอะไรเพิ่ม
3. เขียนโค้ดประมาณนี้

Imports System.Data.SqlClient
Imports System.Data
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Public Class YourReportForm
    Private Sub ReportForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim currentReport As New YourCrystalReport
        CrystalReportViewer1.ReportSource = currentReport
        currentReport.SetDatabaseLogon("DBUser", "DBPassword")
        Dim paramFields As New ParameterFields()
        Dim paramField As New ParameterField()
        Dim discreteVal As New ParameterDiscreteValue()
        paramField.ParameterFieldName = "YourParameterName"
        discreteVal.Value = "YourParameterValue"
        paramField.CurrentValues.Add(discreteVal)
        paramFields.Add(paramField)
        CrystalReportViewer1.ParameterFieldInfo = paramFields
        CrystalReportViewer1.Zoom(85)
    End Sub
End Class

วิธีส่งพารามิเตอร์จาก VB ไป Crystal Report แบบง่าย ๆ

Dim rpt As New rptName
rpt.SetParameterValue("pr1", txt1.Text)
rpt.SetParameterValue("pr2", txt2.Text)

CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Refresh()

วิธีส่งค่าตัวแปรจาก form ใน VB ไปยัง Crystal Report

ในฟอร์ม

Imports CrystalDecisions.Shared pf1.Name = "DT1" 'ให้ตรงกับชื่อพารามิเตอร์ใน Crystal Report pf2.Name = "DT2" 'ให้ตรงกับชื่อพารามิเตอร์ใน Crystal Report pf3.Name = "sPlant" 'ให้ตรงกับชื่อพารามิเตอร์ใน Crystal Report pdv1.Value = d1 'กำหนดค่าให้ตัวแปร pdv1 pdv2.Value = d2 'กำหนดค่าให้ตัวแปร pdv2 pdv3.Value = UcrlUnitTreeView1.SelectNodeText 'กำหนดค่าให้ตัวแปร pdv3 pf1.CurrentValues.Add(pdv1) pf2.CurrentValues.Add(pdv2) pf3.CurrentValues.Add(pdv3) pfs.Add(pf1) pfs.Add(pf2) pfs.Add(pf3) CrystalReportViewer1.ParameterFieldInfo = pfs rpt.SetDataSource(dv) CrystalReportViewer1.ReportSource = rpt CrystalReportViewer1.Zoom(85)

Free TextEditor