parameter

[shocraneh]

هدف من از ایجاد پارامتر اینه که یه متن رو از ارایه به گزارش بفرستم آخه چرا بعد از اجرا یه صفحه باز
می شه و از من بابت پارامتر هایی که تعریف کردم مقدار می خاد ؟
من یه مرجع انگلیسی که دوستان تو همین سایت لینکشو گذاشته بودن استفاده کردم
خواهش می کنم اگه از این قبیل موارد برنامه دارید بزارید من خیلی وقته تلاش می کنم اما نمی شه
:عصبانی++::عصبانی++:

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