Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As New SqlConnection("server=localhost; uid=sa; pwd=; database=pubs")
Dim da As New SqlDataAdapter("select distinct min_lvl from jobs", conn)
Dim da2 As New SqlDataAdapter("select distinct max_lvl from jobs", conn)
Dim ds As New DataSet
Dim ds2 As New DataSet
da.Fill(ds)
da2.Fill(ds2)
ComboBox1.DataSource = ds.Tables(0)
ComboBox1.DisplayMember = "min_lvl"
ComboBox1.ValueMember = "min_lvl"
ComboBox2.DataSource = ds2.Tables(0)
ComboBox2.DisplayMember = "max_lvl"
ComboBox2.ValueMember = "max_lvl"
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 field2 As New ParameterField
Dim value1 As New ParameterDiscreteValue
Dim value2 As New ParameterDiscreteValue
field1.ParameterFieldName = "my_param1"
field2.ParameterFieldName = "my_param2"
value1.Value = ComboBox1.Text
value2.Value = ComboBox2.Text
field1.CurrentValues.Add(value1)
field2.CurrentValues.Add(value2)
container.Add(field1)
container.Add(field2)
' If value1.Value > value2.Value Then
' Msg'Box("Minimum level must be GREATER than the Maximum level")
' Else
Dim objR As New CrystalReport1
With CrystalReportViewer1
.ParameterFieldInfo = container
.ReportSource = objR
End With
' End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim container As New ParameterFields
Dim field1 As New ParameterField
' Dim field2 As New ParameterField
Dim value1 As New ParameterDiscreteValue
'Dim value2 As New ParameterDiscreteValue
field1.ParameterFieldName = "wad1"
'field2.ParameterFieldName = "my_param2"
value1.Value = TextBox1.Text
'value2.Value = ComboBox2.Text
field1.CurrentValues.Add(value1)
'field2.CurrentValues.Add(value2)
container.Add(field1)
' container.Add(field2)
' If value1.Value > value2.Value Then
' Msg'Box("Minimum level must be GREATER than the Maximum level")
' Else
Dim objR As New CrystalReport2
With CrystalReportViewer1
.ParameterFieldInfo = container
.ReportSource = objR
End With
' End If
End Sub
End Class