raha2006
یک شنبه 19 خرداد 1387, 13:40 عصر
سلام
من یک برنامه نوشتم با vb.nrt تو vs2005 اما تو گزارش گیریش موندم.الان یک هفته که گیر گزارش گیریشم .کلی سرچ کردم اول اومدم با report viewer انجام بدم که نشد.حالا اومدم با کریستال ریپورت ابن کارو انجام بدم. کلی تو همین سایت و سایتای دیگه سرچ کردم چند تا مقاله گیر آوردم که همشون آموزش می دادند حالا طبق آنچه که اونا گفتند پیش رفتم ولی نمی دونم چرا مقدار فیلدارو نشون نمی ده فقط اسم فیلد ها که به عنوان هدر نمایش می ده .من اومدم اول اول یک دیتاست ساختم و با view که ساختم آن را ست کردم بعد اومدم داخل یک فرم یک crystalreport viewer انداختم بعد creat new report.. را زدم بعد یک ریپورت ایجاد کردم بعد اونو به دیتاستی که ساختم ربط دادم حالا نمی دونم چرا مقدارارو نشون نمی ده داخل query analyz خروجی داره ولی داخل ریپورتم نه
اینم کدی که نوشتمه:
Imports System.Data.SqlClient
Imports System.IO.Directory
Imports System.Configuration
Imports CrystalDecisions.CrystalReports.Engine
Public Class Freport1
Private Sub Freport1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SQLCon As New SqlConnection(ConfigurationSettings.AppSettings("SabteNameDaneshjoo.My.MySettings.dbSqlCon"))
Dim SQLAdapter As New SqlDataAdapter("SELECT * FROM VIEWQrEntekhabV", SQLCon)
Dim DataSet As New DataSet1()
SQLAdapter.Fill(DataSet, "TbPersonal")
''------------------------------------------------
Dim connectionInfo As New CrystalDecisions.Shared.ConnectionInfo
Dim RepDoc As New ReportDocument()
connectionInfo.ServerName = "."
connectionInfo.DatabaseName = "dbSabtNameDaneshjoo"
Dim RepPath As String = GetCurrentDirectory()
If RepPath.Substring(RepPath.Length - 9) = "bin\Debug" Then
RepPath = RepPath.Substring(0, RepPath.Length - 10)
End If
RepPath &= "\CrystalReport1.rpt"
RepDoc.Load(RepPath)
RepDoc.SetDataSource(DataSet)
CrystalReportViewer1.ReportSource = RepDoc
End Sub
End Class
لطفا کمکم کنید:عصبانی++::گریه:
من یک برنامه نوشتم با vb.nrt تو vs2005 اما تو گزارش گیریش موندم.الان یک هفته که گیر گزارش گیریشم .کلی سرچ کردم اول اومدم با report viewer انجام بدم که نشد.حالا اومدم با کریستال ریپورت ابن کارو انجام بدم. کلی تو همین سایت و سایتای دیگه سرچ کردم چند تا مقاله گیر آوردم که همشون آموزش می دادند حالا طبق آنچه که اونا گفتند پیش رفتم ولی نمی دونم چرا مقدار فیلدارو نشون نمی ده فقط اسم فیلد ها که به عنوان هدر نمایش می ده .من اومدم اول اول یک دیتاست ساختم و با view که ساختم آن را ست کردم بعد اومدم داخل یک فرم یک crystalreport viewer انداختم بعد creat new report.. را زدم بعد یک ریپورت ایجاد کردم بعد اونو به دیتاستی که ساختم ربط دادم حالا نمی دونم چرا مقدارارو نشون نمی ده داخل query analyz خروجی داره ولی داخل ریپورتم نه
اینم کدی که نوشتمه:
Imports System.Data.SqlClient
Imports System.IO.Directory
Imports System.Configuration
Imports CrystalDecisions.CrystalReports.Engine
Public Class Freport1
Private Sub Freport1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim SQLCon As New SqlConnection(ConfigurationSettings.AppSettings("SabteNameDaneshjoo.My.MySettings.dbSqlCon"))
Dim SQLAdapter As New SqlDataAdapter("SELECT * FROM VIEWQrEntekhabV", SQLCon)
Dim DataSet As New DataSet1()
SQLAdapter.Fill(DataSet, "TbPersonal")
''------------------------------------------------
Dim connectionInfo As New CrystalDecisions.Shared.ConnectionInfo
Dim RepDoc As New ReportDocument()
connectionInfo.ServerName = "."
connectionInfo.DatabaseName = "dbSabtNameDaneshjoo"
Dim RepPath As String = GetCurrentDirectory()
If RepPath.Substring(RepPath.Length - 9) = "bin\Debug" Then
RepPath = RepPath.Substring(0, RepPath.Length - 10)
End If
RepPath &= "\CrystalReport1.rpt"
RepDoc.Load(RepPath)
RepDoc.SetDataSource(DataSet)
CrystalReportViewer1.ReportSource = RepDoc
End Sub
End Class
لطفا کمکم کنید:عصبانی++::گریه: