ارسال متن از تكس باكس به كريستال ريپورت

[mahbobehshab]

سلام خسته نباشيد.
من دارم برنامه اي مينويسم كه با استفاده از داده هاي جدولم يك آمار ماهانه ميگيره و تو تكست باكس قرار ميده ولي توي هيچ جايي از بانك ذخيره نمي كنم چون نميشه.
حالا ميخوام اين داده ها رو از تكست باكس بفرستم به كريستال ريپورت ولي چون فيلدهاشو ندارم نميتونم اين كارو بكنم.

توروخدا هركي ميدونه راهنماييم كنه.ممنون.

[baidin]

یه راه ساده این هست که دیتاستی به صورت گرافیکال به فرمت اضافه کن و بعد یک فیلد داخل آن درج کن و متن داخل تکست باکس را داخل دیتا ست قرار بده در مرحله بعد سورس کریستال را همان دیتا ست تعیین کن

[mahbobehshab]

ممنون.
ولي خوب چه جوري متن تو تكست باكس تو ديتاست ذخيره كنم.من تاحالا با ديتاست كار نكردم.

[sari-1369]

http://barnamenevis.org/forum/showpost.php?p=1005891&postcount=4

ارسال پارامتر از VB به Crystal Report (http://barnamenevis.org/forum/showthread.php?t=3708&highlight=%D9%BE%D8%A7%D8%B1%D8%A7%D9%85%D8%AA%D8% B1)

ارسال اطلاعات TextBox به کریستال (http://barnamenevis.org/forum/showthread.php?t=226000&highlight=%D9%BE%D8%A7%D8%B1%D8%A7%D9%85%D8%AA%D8% B1)

[masoudcarpet]

Dim Rpt AsNewCrystalReport1
Rpt.DataDefinition.FormulaFields("UnboundString1").Text = "'" & TextBox1.Text & "'"

[alicomputer]

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


Dim strsql As String = "select * from Tbl_Sabtename where name LIKE N'" & ComboBox2.Text.Trim() & "%'"
Dim oda As New SqlClient.SqlDataAdapter(strsql, strconnection)
Dim adataset As New DataSet
oda.Fill(adataset, "Tbl_Sabtename")
Dim rpt As New Pasokh
rpt.Load("Pasokh")
rpt.SetDataSource(adataset.Tables("Tbl_Sabtename"))
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Refresh()

[alicomputer]

هیچ کس پیدا نمی شه به من کمک کنه

[alicomputer]

این هم جواب:

Dim strsql As String = "select * from Tbl_Sabtename where dore LIKE N'" & ComboBox1.Text.Trim() & "%'"
Dim oda As New SqlClient.SqlDataAdapter(strsql, strconnection)
Dim adataset As New DataSet
oda.Fill(adataset, "Tbl_Sabtename")
Dim rpt As New Pasokh


rpt.Load("Pasokh")
rpt.SetDataSource(adataset.Tables("Tbl_Sabtename"))

Dim objText As CrystalDecisions.CrystalReports.Engine.TextObject = CType(rpt.ReportDefinition.Sections(3).ReportObjec ts("Text136"), TextObject)
objText.Text = Me.ComboBox1.Text

CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.Refresh()

کدی که اضافه کردم تا جواب داد اینه

Dim objText As CrystalDecisions.CrystalReports.Engine.TextObject = CType(rpt.ReportDefinition.Sections(3).ReportObjec ts("Text136"), TextObject)
objText.Text = Me.ComboBox1.Text

این هم لینک راهنما http://www.dreamincode.net/forums/topic/156790-parametertxtdatetext-view-in-crystal-report/

[شاپرک]

اين كد چطور:


Dim crRep As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
crRep.Load(sReportPath)
crRep.DataDefinition.FormulaFields.Item("F1").Text = """" & txtF1.Text & """"