Crystal Reports

[MehdiLiver]

سلام
کریستال ریپورت ویو از کجا سورس دیتا بیس رو میگیره
مثلا دیتا گرید ویو اینجوریه
DataGridView1.Datasource=
اینجوری میخوام
حالا کریستال ریپورت ویو چه جوریه ؟

[MehdiLiver]

کسی با کریستال ریپورت ویو کار نکرده ؟

[MehdiLiver]

!!!!!!! Cover Me !!!!!!!

[MehdiLiver]

یکی پیدا نمیشه جواب مارو بده ؟

[kasra_khan2003]

کریستال ریپورت واسه خودش تاپیک جدا داره، و اگه یکم جستجو کنی، پیدا میکردی.

به هر حال. شما باید یه Crystal Report به نام cry_Report و یه ReportDocument به نام rptDocument بسازی، اینم کد که هرچی تو DataTable باشه رو میفرسته برای چاپ!




Dim report As New cry_Print

report.SetDataSource(dtTable)

dtTable.Dispose()

rptDocument.ReportSource = report

[hadiit]

Dim logonInfo As New CrystalDecisions.Shared.TableLogOnInfo()
Dim objTable As CrystalDecisions.CrystalReports.Engine.Table
Dim objReport As New ReportDocument()
Application.DoEvents()
objReport.Load(My.Application.Info.DirectoryPath & "\Report\CR_m1.rpt")

For Each objTable In objReport.Database.Tables
logonInfo = objTable.LogOnInfo
logonInfo.ConnectionInfo.ServerName = sever_name
logonInfo.ConnectionInfo.DatabaseName = "Data"
logonInfo.ConnectionInfo.UserID = "admin"
logonInfo.ConnectionInfo.Password = "123456"
logonInfo.ConnectionInfo.IntegratedSecurity = False
objTable.ApplyLogOnInfo(logonInfo)
Next objTable

[MehdiLiver]

Dim logonInfo As New CrystalDecisions.Shared.TableLogOnInfo()
Dim objTable As CrystalDecisions.CrystalReports.Engine.Table
Dim objReport As New ReportDocument()
Application.DoEvents()
objReport.Load(My.Application.Info.DirectoryPath & "\Report\CR_m1.rpt")

For Each objTable In objReport.Database.Tables
logonInfo = objTable.LogOnInfo
logonInfo.ConnectionInfo.ServerName = sever_name
logonInfo.ConnectionInfo.DatabaseName = "Data"
logonInfo.ConnectionInfo.UserID = "admin"
logonInfo.ConnectionInfo.Password = "123456"
logonInfo.ConnectionInfo.IntegratedSecurity = False
objTable.ApplyLogOnInfo(logonInfo)
Next objTable
من نتونستم باهاش کار کنم میشه داخل برنامم بگذارید ؟
ممنون
http://rapidshare.com/files/39336754...se-V4.rar.html

[hadiit]

من نتونستم باهاش کار کنم میشه داخل برنامم بگذارید ؟
ممنون
http://rapidshare.com/files/39336754...se-V4.rar.html


لينك خرابه!

[hadiit]

MehdiLiver جان اگه منظورت select يك سري از اطلاعات توي بانك هست بايد بگم كه بايد از selection formul استفاده بكني
جواب قبلي من براي تعريف ديتابيس و لاگين شدن بود.

[hadiit]

كد اوليه رو كاملتر كردم كه selection Formul رو هم داره


Dim logonInfo As New CrystalDecisions.Shared.TableLogOnInfo()
Dim objTable As CrystalDecisions.CrystalReports.Engine.Table
Dim objReport As New ReportDocument()
Application.DoEvents()
objReport.Load(My.Application.Info.DirectoryPath & "\Report\CR_m1.rpt")

For Each objTable In objReport.Database.Tables
logonInfo = objTable.LogOnInfo
logonInfo.ConnectionInfo.ServerName = sever_name
logonInfo.ConnectionInfo.DatabaseName = "Data"
logonInfo.ConnectionInfo.UserID = "admin"
logonInfo.ConnectionInfo.Password = "123456"
logonInfo.ConnectionInfo.IntegratedSecurity = False
objTable.ApplyLogOnInfo(logonInfo)
Next objTable
objReport.RecordSelectionFormula = "{Table2.type}<>'12' and {Table2.s_date}='" & ComboBox2.Text & "'"
CrystalReportViewer1.ReportSource = objReport

[MehdiLiver]

لينك خرابه!

اه آره همین الان سالم بود

[MehdiLiver]

لينك خرابه!

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

[hadiit]

Helppppppppppppppppp MEeeeeeeeeeeeeeeeeeeee!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!

درستش كردم

[MehdiLiver]

درستش كردم

فایلتون که ارسال کردید مشکل داره
ارور میده
اررورشم گذاشتم

[MehdiLiver]

آقا یکی بیاد این مشکل مارو حل کنه خواهشا

[hadiit]

MehdiLiver جان
من با vs 2008 sp1 نوشتم بايد يك پروژه ديگه ايجاد كني و بعدا همه فرم ها وبانك رو بهش اضافه كني