با تشکر از منبع
من در گزارشگیری خیلی مشکل دارم مثلا تو استفاده از پارامترها از همین منبع هم استفاده
کردم اما ...
خواهش می کنم یه پروژه برام بزارین 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
cmd.Connection = cn
cmd.CommandText = " SELECT * FROM ostad "
ds.Clear()
da.SelectCommand = cmd
da.SelectCommand.Connection = cn
da.Fill(ds, "p")
Dim rpt As New CrystalReport3
'rpt.SetParameterValue("p1", TextBox1.Text.Trim)
Dim myArrayList As ArrayList = New ArrayList()
myArrayList.Add("Paris")
myArrayList.Add("Tokyo")
' Dim myParameterFields As ParameterFields = myCrystalReportViewer.ParameterFieldInfo()
' Dim myParameterFields As ParameterFields = rpt.Parameter_p1
Dim myParameterFields As ParameterFields = rpt.ParameterFields
SetCurrentValuesForParameterField(myParameterField s, myArrayList)
rpt.SetDataSource(ds)
Form1.CrystalReportViewer1.ReportSource = rpt
Form1.CrystalReportViewer1.Zoom(100)
Form1.Show()
End Sub
Private Sub SetCurrentValuesForParameterField(ByVal myParameterFields As ParameterFields, ByVal myArrayList As ArrayList)
Dim currentParameterValues As ParameterValues = New ParameterValues()
For Each submittedValue As Object In myArrayList
Dim myParameterDiscreteValue As New ParameterDiscreteValue
myParameterDiscreteValue.Value = submittedValue.ToString()
currentParameterValues.Add(myParameterDiscreteValu e)
Next
Dim myParameterField As ParameterField = myParameterFields("p2")
myParameterField.CurrentValues = currentParameterValues
End Sub
پاسخ با نقل قول
