pass 2 value to crystal report

ปรับปรุง : 2550-12-19 (รวบรวม)









Imports Crystaldecisions.shared
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CrystalReportViewer1.Refresh()
        Dim paramFields As New ParameterFields()
        Dim paramField As New ParameterField()
        Dim discreteVal As New ParameterDiscreteValue()
        '
        paramField.ParameterFieldName = "t1"
        discreteVal.Value = Val(TextBox2.Text)
        paramField.CurrentValues.Add(discreteVal)
        paramFields.Add(paramField)
        '
        discreteVal = New ParameterDiscreteValue()
        paramField = New ParameterField()
        '
        paramField.ParameterFieldName = "t2"
        discreteVal.Value = Val(TextBox1.Text)
        paramField.CurrentValues.Add(discreteVal)
        paramFields.Add(paramField)
        CrystalReportViewer1.ParameterFieldInfo = paramFields
        Dim rpt As String
        rpt = "C:\pass2cryst\WindowsApplication1\WindowsApplication1\CrystalReport1.rpt"
        CrystalReportViewer1.ReportSource = rpt
    End Sub
End Class

แนะนำเว็บใหม่ : ผลการจัดอันดับ
รักลำปาง : thcity.com : korattown.com : topsiam.com : มหาวิทยาลัยโยนก
ศูนย์สอบ : รวมบทความ : ไอทีในชีวิตประจำวัน : ดาวน์โหลด : yourname@thaiall.com
ติดต่อ ทีมงาน ชาวลำปาง มีฝันเพื่อการศึกษา Tel.08-1992-7223