الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه wertani في 24 أبريل 2008 · 6 رد · 1,357 مشاهدة · في قسم التقارير
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

عندي مشكلة حيرت في أمرها و تتمثل في

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

مثال

عند عرض تقرير غعلي يقوم بالعرض لكن عند الأغلاق و فتح تقرير لحريف أخر نجد تقرير علي

الرجاء مساعثتي

#2

اخي الكريم

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

Report.DiscardSavedData

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#3

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

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

و الله حيرت

#4

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

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#5

الأخ الكريم ، كما ذكر لك الأخ 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

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#6

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

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

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

#7
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

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

مواضيع مشابهة