مشکل در کریستال ریپورت8 با VB 6.0

[mhsoleimani]

سلام . ما یه برنامه انبارداری نوشتیم و گزارشاتی رو از طریق کریستال ریپورت میگیریم . ولی مشکل ما اینه که کریستال ریپورت بعد از یکبار گزارش دادن دیگه آپدیت نمیشه و همون گزارش قبلی رو نشون میده مگر اینکه از برنامه خارج بشیم .
مشکل کار از کجاست ؟
( هم از طریق Stored Procedure کار می کنیم و هم فراخوانی مستقیم رکوردها )

[vbhamed]

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



Dim x As New CRAXDRT.Application
Dim y As CRAXDRT.Report

Private Sub cmdPreview_Click()

Set y = x.OpenReport(App.Path & "\Test.rpt")

With y
.DiscardSavedData
.DisplayProgressDialog = False
.PaperOrientation = crPortrait
PaperSize = crPaperA4

frmReport.CRViewer.ReportSource = y
frmReport.CRViewer.ViewReport
frmReport.CRViewer.Zoom 100
frmReport.Show vbModal
End With
End

End Sub

Private Sub cmdPrint_Click()

Set y = x.OpenReport(App.Path & "\Test.rpt")

With y
.DiscardSavedData
.DisplayProgressDialog = False
.PaperOrientation = crPortrait
.PaperSize = crPaperA4

.PrintOutEx False
End With

End Sub

[mhsoleimani]

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

[mhsoleimani]

برادران و خواهران گرامی کسی نیست جواب منو بده ؟
این کد رو کجا اعمال کنیم ؟
روی فرم کریستال یا ICRDesigner ?

[vbhamed]

سلام
نمونه :

[m_vb1386]

سلام . ما یه برنامه انبارداری نوشتیم و گزارشاتی رو از طریق کریستال ریپورت میگیریم . ولی مشکل ما اینه که کریستال ریپورت بعد از یکبار گزارش دادن دیگه آپدیت نمیشه و همون گزارش قبلی رو نشون میده مگر اینکه از برنامه خارج بشیم .
مشکل کار از کجاست ؟
( هم از طریق Stored Procedure کار می کنیم و هم فراخوانی مستقیم رکوردها )
میتونید از منوی فایل در محیط کریستل ریپورت تیک گزینه Save Data with Report رو بردارید
البته کد حامد هم 100 در صد جواب میده