التقرير لا يقوم بالتحيين

اخي الكريم

اضف هذا الكود في حدث Form_Load الخاص بالفورم الذي يحتوي على CRViewer

Report.DiscardSavedData

تحياتي

يا أخي لا يوجد تغيير يقوم بعرض بيانات قمت انا بمسحها من قاعدة البيانات و لا يقوم بعرض البيانات الجديدة

على ما اضن طريقة تقوم بفتحالقاعدة للتقرير في المرة الأولي ثم طريقة لخلق قاعدة البيانات لي يقوم بعرض البيانات الجديدة

و الله حيرت

اخي ارفع المثال لنرى اصل المشكلة

تحياتي

الأخ الكريم ، كما ذكر لك الأخ omani ، ما عليك سوي أن تكتب جملة ( DiscardSavedData ) لتحديث البيانات من جديد ، وهذا في حالة الربط المباشر مع تقرير خارجي ، وإليك الكود كاملاً :

 

Dim Apl As New CRAXDDRT.Application
Dim Rep As New CRAXDDRT.Report

Private Sub Form_Load()
	Set Rep = Apl.OpenReport(App.Path & "\Report1.rpt")
	Rep.DiscardSavedData
	Cr.ReportSource = Rep
	Cr.ViewReport
	DoEvents
	Cr.Zoom 1
End Sub

ولكن هناك شيء آخر صراحتاً أنا أفضلة ، وهو إرسال قيمة الـ Recordset مباشرتاً بأمر التقرير المناسب Command كما يلي :

rep.Database.SetDataSource rs,,1

حيث أن الرقم ( 1 ) هو ترتيب أمر السجلات Command

شكراً

هذا هو الكود و لكن كالعدة لا يقوم بتتحيين

مثال عند علرض بيات الحريف علي ثم اريد عرض بينات الحريف احمد تنقى بينات علي هي المعروضة

Dim Report As New CrystalReport13

Option Explicit

Dim FirstShowComplete As Boolean

Private Sub Form_Load()

Screen.MousePointer = vbHourglass

CRViewer1.ReportSource = Report

CRViewer1.ViewReport

Screen.MousePointer = vbDefault

CRViewer1.Zoom (110)

RefreshViewer

Me.Caption = " ÇÔÚÇÑ ÈÇáÊäÒíá á :" & Form11.Combo1

FirstShowComplete = False

Report.DiscardSavedData

End Sub

Private Sub Form_Resize()

CRViewer1.Top = 0

CRViewer1.Left = 0

CRViewer1.Height = ScaleHeight

CRViewer1.Width = ScaleWidth

End Sub

Private Sub RefreshViewer()

Dim s As String

Screen.MousePointer = vbHourglass

s = s & " {T_Benificiare.nom } = '" & Form11.Combo1 & "'"

Report.RecordSelectionFormula = s

Screen.MousePointer = vbDefault

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set Report = Nothing

End Sub

wertani كتب:

هذا هو الكود و لكن كالعدة لا يقوم بتتحيين

مثال عند علرض بيات الحريف علي ثم اريد عرض بينات الحريف احمد تنقى بينات علي هي المعروضة

Dim Report As New CrystalReport13

Option Explicit

Dim FirstShowComplete As Boolean

Private Sub Form_Load()

Screen.MousePointer = vbHourglass

CRViewer1.ReportSource = Report

CRViewer1.ViewReport

Screen.MousePointer = vbDefault

CRViewer1.Zoom (110)

RefreshViewer

Me.Caption = " ÇÔÚÇÑ ÈÇáÊäÒíá á :" & Form11.Combo1

FirstShowComplete = False

Report.DiscardSavedData

End Sub

اخي الكريم الخطأ في هذا الكود انك اظهرت التقرير ثم طلبت بعد ذلك حذف البيانات السابقة فالمفروض ان تقوم بحذف البيانات ثم اظهار التقرير اي ان يصبح الكود كالتالي :

Private Sub Form_Load()
Screen.MousePointer = vbHourglass

Report.DiscardSavedData

CRViewer1.ReportSource = Report

CRViewer1.ViewReport
Screen.MousePointer = vbDefault
CRViewer1.Zoom (110)
RefreshViewer
Me.Caption = " ÇÔÚÇÑ ÈÇáÊäÒíá á :" & Form11.Combo1
FirstShowComplete = False

End Sub

تحياتي