У меня возникла ошибка при запуске моего Crystal Report Viewer и загрузке отчетов из моей базы данных после того, как я развернул приложение Windows на основе щелчка один раз на другом компьютере
Мне кажется, проблема в том, что мой путь к файлу .rpt жестко запрограммирован, вот почему он не может найти файл .rpt при развертывании на других компьютерах.
Public Sub PrintReceiptSearch()
Dim cryRpt As New ReportDocument
cryRpt.Load("C:\Users\Arcus HP Server\Documents\Visual Studio 2013\Projects\ArcusTechnologiesPayParkingSystem\ArcusTechnologiesPayParkingSystem\Forms\Users\Cashier\Printing\CrystalReportPrintReceiptSearch.rpt")
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
crParameterDiscreteValue.Value = print
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = crParameterFieldDefinitions.Item("My Parameter")
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
FormPrintReceiptSearch.CrystalReportViewer1.ReportSource = cryRpt
FormPrintReceiptSearch.CrystalReportViewer1.Refresh()
End Sub
Правильно ли сделан мой вывод? Есть какие-то решения, чтобы это исправить? Так что моя программа будет безошибочной, когда я разверну ее на других компьютерах. Заранее спасибо и больше силы!