fmfmfm
دوشنبه 17 مهر 1391, 16:28 عصر
با عرض سلام و پوزش
پوزش بخاطر اینکه در پست های زیادی این مشکل بحث شده اما من متوجه نشدم
برای ساخت گزارش توسط کریستال ریپورت و استفاده در برنامه در قسمت مشخص شده مسیر دیتا بیس
را می دهم. و این فرم با فراخوانی در برنامه ویژوال بیسیک بخوبی کار می کند. حالا اگر بخواهم در خود
کریستال ریپورت مسیر پویا بدهم. یعنی مانند سایر قست های برنامه بدون مشکل در دستگاههای دیگر
کار کند. چطور باید عمل کنم.
ممنون. راهنمایی فرمائید.
93725
این دستورات روی یک فرم گذاشته شده
Private Sub Form_Load()
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim crDBTab As CRAXDDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\CrystalReport4.Rpt")
CRViewer9.ReportSource = crRept
CRViewer9.ViewReport
Set crApp = Nothing
Set crRept = Nothing
End Sub
Private Sub Form_Resize()
CRViewer9.Top = 0
CRViewer9.Left = 0
CRViewer9.Height = ScaleHeight
CRViewer9.Width = ScaleWidth
End Sub
ولی وقتی مسیر بانک عوض شود . دچار مشکل می شود.
پوزش بخاطر اینکه در پست های زیادی این مشکل بحث شده اما من متوجه نشدم
برای ساخت گزارش توسط کریستال ریپورت و استفاده در برنامه در قسمت مشخص شده مسیر دیتا بیس
را می دهم. و این فرم با فراخوانی در برنامه ویژوال بیسیک بخوبی کار می کند. حالا اگر بخواهم در خود
کریستال ریپورت مسیر پویا بدهم. یعنی مانند سایر قست های برنامه بدون مشکل در دستگاههای دیگر
کار کند. چطور باید عمل کنم.
ممنون. راهنمایی فرمائید.
93725
این دستورات روی یک فرم گذاشته شده
Private Sub Form_Load()
Dim crApp As New CRAXDRT.Application
Dim crRept As New CRAXDRT.Report
Dim crDBTab As CRAXDDRT.DatabaseTable
Set crRept = crApp.OpenReport(App.Path & "\CrystalReport4.Rpt")
CRViewer9.ReportSource = crRept
CRViewer9.ViewReport
Set crApp = Nothing
Set crRept = Nothing
End Sub
Private Sub Form_Resize()
CRViewer9.Top = 0
CRViewer9.Left = 0
CRViewer9.Height = ScaleHeight
CRViewer9.Width = ScaleWidth
End Sub
ولی وقتی مسیر بانک عوض شود . دچار مشکل می شود.