ارسال اطلاعات به كريستال ريپورت

[m_zamani]

سلام
كسي ميدونه اين كد چه مشكلي داره؟


Dim cr As New cr
cr.SetDataSource(dt)
Me.CrystalReportViewer1.ReportSource = cr
Me.CrystalReportViewer1.PrintReport()


dt ديتاتيبلم هست كه پره اما اطلاعاتش رو نميفرسته به كريستال ريپورت

[kablayi]

شما بایستی یه متغیر از نوع reportdocument تعریف کنید ...


Dim rptdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent


سپس فایل report رو با متد لود صدا بزنید و دیتاتیبل رو به اون پاس بدین...


rptdoc.Load(Application.StartupPath & "\Report\report.rpt")
rptdoc.SetDataSource(dt)


در آخر هم CrystalReportViewer1 رو از reportdocument پر کنید و دستور چاپ رو بفرستید ....


Me.CrystalReportViewer1.ReportSource = rptdoc
Me.CrystalReportViewer1.PrintReport()


با توجه به کدهاتون فکر کنم شما اون قسمت قرمز رنگ رو که براتون نوشتم انجام ندادید....

موفق باشید ...

[majid_vb_2008]

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




Imports System.Data
Imports System.Data.SqlClient

Public Class FrmPreviewFactot
Private strsql As String
Private con As SqlConnection
Private da As SqlDataAdapter
Private com As SqlCommand
Private ds As DataSet
Private Vi As CRPreViewFactor
Dim Fil As String

Private Sub FrmPreviewFactot_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Try
con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\Data.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True")

strsql = "SELECT * FROM Aza WHERE
Fil = "Aza"


da = New SqlDataAdapter(strsql, con)
ds = New DataSet
Vi = New CRPreViewFactor

If con.State = ConnectionState.Closed Then
con.Open()
End If
da.Fill(ds, Fil)
Vi.SetDataSource(ds)
Me.CRV.ReportSource = Vi
Catch ex As Exception
MessageBox.Show(ex.Message & "-----> " & Err.Number)
con.Close()
End Try
End Sub
End Class

[m_zamani]

من ميخوام يه datatable رو بفرستم به Crystal

[m_zamani]

گزارش رو خالي برام مياره