parameter sahee

[chilli]

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As System.EventArg s) Handles MyBase.Load
Dim oconn As New SqlConnection(" server=localhos t;uid=sa;pwd=;d atabase=northwi nd")
oconn.Open()

Dim ObjDA As New SqlDataAdapter( "SELECT City FROM Customers GROUP BY City", oconn)
Dim objDS As New DataSet
ObjDA.Fill(objD S)
ComboBox1.DataS ource = objDS.Tables(0)
ComboBox1.Displ ayMember = "City"
ComboBox1.Value Member = "City"
End Sub



button

Dim formfields As New ParameterFields
Dim comboboxfield As New ParameterField '2
Dim comboxvalue As New ParameterDiscre teValue '2

Dim objcr As CrystalReport2

comboboxfield.P arameterFieldNa me = "mycity" '2

comboxvalue.Val ue = ComboBox1.Text '2

comboboxfield.C urrentValues.Ad d(comboxvalue) '2

formfields.Add( comboboxfield) '2

CrystalReportVi ewer1.Parameter FieldInfo = formfields
CrystalReportVi ewer1.ReportSou rce = objcr
CrystalReportVi ewer1.Refresh()