ارسال مقدار به پارامتر بدون سوال

[moferferi]

سلام
من در این سایت یه کد واسه این کار پیدا کردم. ولی من خودم این کد را نوشتم و میخوام بدونم باید چطوری تغغیرش بدم که صفحه enter parameter value ظاهر نشه.
و اینکه یه پیغام خطا هم اولش میده load report filed

اینم کد من:



CrystalReport3 doc = newCrystalReport3

ParameterFields crParametersFields = newParameterFields
ParameterField crParameterField = newParameterField
ParameterValues crParametervalues = newParameterValues
ParameterDiscreteValue crParameterDiscreteValue= newParameterDiscreteValue
//
crystalReportViewer1.ReportSource = doc
//
crParametersFields = crystalReportViewer1.ParameterFieldInfo
crParametervalues = crParameterField.CurrentValues
//
crParameterField = crParametersFields[0]
crParameterDiscreteValue = newParameterDiscreteValue
crParameterDiscreteValue.Value = textBox1.Text
crParametervalues.Add(crParameterDiscreteValue)

[amirzazadeh]

سلام
من در این سایت یه کد واسه این کار پیدا کردم. ولی من خودم این کد را نوشتم و میخوام بدونم باید چطوری تغغیرش بدم که صفحه enter parameter value ظاهر نشه.
و اینکه یه پیغام خطا هم اولش میده load report filed






دوست من شما اول بايد توي گزارشتون در محيط كريستال ريپورت يك پارامتر درست كنين وبعد موقع لود گزارش مقدار اونرو توسط تكست باكس يك پركنين.پيام خطاي اول هم به خاطر اينه شما گزارش رو پر نكردين.
ببينين اين كد به دردتون ميخوره


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\am\Desktop\db11.mdb")
Dim dap As New OleDbDataAdapter("SELECT * FROM Table1 ", con)
Dim dst As New DataSet
Dim opr As New CrystalReport1
con.Open()
dap.Fill(dst, "table1")
con.Close()
opr.SetDataSource(dst)
opr.SetParameterValue("shomare-faktor", TextBox1.Text)
Form2.CrystalReportViewer1.ReportSource = opr
Form2.Show()
End Sub............................................... ......
موفق باشيد

[ali_md110]

Dim rpt As New Crystalreport1
rpt.SetParameterValue("compony", name_co)


CrystalReportViewer1.ReportSource = rpt
compony نام پارامتر درون کریستال و name_co میتونه متغیر یا نام یک کمترل مثلا تکست باکس باشه