การส่งค่า Parameter Fields ให้กับ CrystalReport

คลิกขวาที่ Parameter Fields --> เลือก New   


 ก่อนอื่นเราจะต้องตั้งค่าตัวแปล สำหรับ รับค่า ชื่อ test



 จะได้ Parameter ตามที่เราสร้างไว้ครับ


ที่ Toolbox -> Report -> CrystalReport








'##Codeing ตามนี้เลยน่ะครับ 
Dim rpt As CrystalReport1 = New CrystalReport1

Dim Sql As String
Sql="Select * from ชื่อตาราง"
OpenDB()


        '## เชื่อมต่อ Data base ซึ่งก็น่าจะรู้จักกันดีน่ะครับ
        dbCmd = New OdbcCommand(Sql, dbCon)


         '## Excute คำสั่ง Sql ที่เรา Query
        dbRead = dbCmd.ExecuteReader
        Dim dbTable As New DataTable
        dbTable.Load(dbRead)


        '##Refresh  CrystalReportViewer1 
        '##CrystalReportViewer1.RefreshReport()
        rpt.Load(Server.MapPath("CrystalReport1.rpt"))
        rpt.SetDataSource(dbTable)

        '## ส่งค่า Parameter GO CrystalRepor
        rpt.SetParameterValue("test", Trim(txtReport.Text))
        CrystalReportViewer1.ReportSource = rpt
        CrystalReportViewer1.DataBind()









        dbRead.Close()
        dbRead = Nothing
        dbCmd.Dispose()
        dbCon.Close() 


Output  ที่ได้ครับ




คำเตือน ^^
    '##ห้ามใช้คำสั่ง  CrystalReportViewer1.RefreshReport() น่ะครับ
เพราะ จะทำให้ ERROR