CrystalReport-Parameter

[GoodBacha]

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports
Imports System.Data.OleDb





Dim conn As New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0; Data Source=c:\IQRA.mdb")
Dim da As New OleDbDataAdapter("select shift from student", conn)
Dim ds As New DataSet

da.Fill(ds)


ComboBox1.DataSource = ds.Tables(0)
ComboBox1.DisplayMember = "SHIFT"
ComboBox1.ValueMember = "SHIFT"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim container As New ParameterFields
Dim field1 As New ParameterField
Dim value1 As New ParameterDiscreteValue

field1.ParameterFieldName = "param_shift"
value1.Value = ComboBox1.Text
field1.CurrentValues.Add(value1)
container.Add(field1)

CrystalReportViewer1.ParameterFieldInfo = container