kablayi
دوشنبه 11 شهریور 1387, 06:42 صبح
سلام ...
گزارشی رو تنظیم کردم و درست و کامل جوابو میده ولی بعد از چند بار اجرا و تغییر شرایط گزارش دیگه جواب نمیده ...
اینطوری نوشتم ... : در قسمتهای قرمز رنگ با تغییر tag نوع گزارش تغییر میکنه ...
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Amval.mdb")
Dim strsql As String = "select * from amval"
Dim da As New OleDbDataAdapter(strsql, cn)
Dim ds As New DataSet
da.Fill(ds)
If Me.Tag = 1 Then
Dim rptdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim strpath As String = Application.StartupPath & "\allchattels.rpt"
rptdoc.Load(strpath)
rptdoc.SetDataSource(ds.Tables(0))
CrystalReportViewer1.ReportSource = rptdoc
ElseIf Me.Tag = 2 Then
strrepname = "allchattels"
Dim formula As String = "{Amval.Status}='" & LBLFilter.Text.Trim & "'"
Dim rptdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim strpath As String = Application.StartupPath & "\allchattels.rpt"
rptdoc.Load(strpath)
rptdoc.DataDefinition.RecordSelectionFormula = formula
rptdoc.SetDataSource(ds.Tables(0))
CrystalReportViewer1.ReportSource = rptdoc
End If
حالا مشکل اینه که بار اول که هر دو نمونه گزارش رو اجرا میکنم درست جواب میده ولی دفعات بعدی، صفحه خالی رو نشون میده ...
حتی اگر برنامه رو ببندم و دوباره باز کنم بازم صفحه خالی رو نشون میده ... :متعجب: :متعجب: :متعجب: :متعجب:
ممنون
گزارشی رو تنظیم کردم و درست و کامل جوابو میده ولی بعد از چند بار اجرا و تغییر شرایط گزارش دیگه جواب نمیده ...
اینطوری نوشتم ... : در قسمتهای قرمز رنگ با تغییر tag نوع گزارش تغییر میکنه ...
Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Amval.mdb")
Dim strsql As String = "select * from amval"
Dim da As New OleDbDataAdapter(strsql, cn)
Dim ds As New DataSet
da.Fill(ds)
If Me.Tag = 1 Then
Dim rptdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim strpath As String = Application.StartupPath & "\allchattels.rpt"
rptdoc.Load(strpath)
rptdoc.SetDataSource(ds.Tables(0))
CrystalReportViewer1.ReportSource = rptdoc
ElseIf Me.Tag = 2 Then
strrepname = "allchattels"
Dim formula As String = "{Amval.Status}='" & LBLFilter.Text.Trim & "'"
Dim rptdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim strpath As String = Application.StartupPath & "\allchattels.rpt"
rptdoc.Load(strpath)
rptdoc.DataDefinition.RecordSelectionFormula = formula
rptdoc.SetDataSource(ds.Tables(0))
CrystalReportViewer1.ReportSource = rptdoc
End If
حالا مشکل اینه که بار اول که هر دو نمونه گزارش رو اجرا میکنم درست جواب میده ولی دفعات بعدی، صفحه خالی رو نشون میده ...
حتی اگر برنامه رو ببندم و دوباره باز کنم بازم صفحه خالی رو نشون میده ... :متعجب: :متعجب: :متعجب: :متعجب:
ممنون