خواشا کمک :مشکل در ارسال پارامتر در زمان اجرا به گزارش

[misagh1370]

با سلام
دوستان من با کریستال ریپورت گزارشگیری میکنم.میخوام یه پارامتر از طریق تکست باکسم به گزارش بفرستم

Dim par As CrystalDecisions.CrystalReports.Engine.ParameterFi eldDefinition = CrystalReport31.DataDefinition.ParameterFields("company")
'Dim CurrentValue As CrystalDecisions.Shared.ParameterValues = par.CurrentValues

'Dim NewValue As CrystalDecisions.Shared.ParameterDiscreteValue
'NewValue = New CrystalDecisions.Shared.ParameterDiscreteValue
'NewValue.Value = TextBox1.Text
'CurrentValue.Add(NewValue)
'par.ApplyCurrentValues(CurrentValue)



مشکلم اینجاست که وقتی برنامه رو اجرا میکنم یه فرم باز میشه وبرای پارامتر ها DiscreteValue میخواهد ! دوستان خواهشا کمک کنید.