Как внедрить созданный отчет (*.rpt) в программу на VB?
Формулировка задачи:
привет народ!
подскажите как внедрить созданный отчет (*.rpt) в программу на VB ?
Решение задачи: «Как внедрить созданный отчет (*.rpt) в программу на VB?»
textual
Листинг программы
Dim crxApplication As New CRAXDRT.Application Dim crxDBTs As CRAXDRT.DatabaseTables Dim Report As CRAXDRT.Report Dim String_ As String Public MyCommand As String Public QngL As String Dim Len_ As Integer Dim m_Report As New CRPrinterSettings Option Explicit Dim AAA As String Private Sub cmdPrinterSettings_Click() Report.PrinterSetup (hWnd) End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub Form_Load() Unload Form1 Dim crxDataBaseTable As CRAXDRT.DatabaseTable Dim crxSubReport As CRAXDRT.Report Set Report = crxApplication.OpenReport(App.Path & 'Report52.rpt', 1) For Each crxDataBaseTable In Report.Database.Tables crxDataBaseTable.Location = GetComdLin Next crxDataBaseTable Set crxSubReport = Report.OpenSubreport('subrep31.rpt') For Each crxDataBaseTable In crxSubReport.Database.Tables crxDataBaseTable.Location = GetComdLin Next crxDataBaseTable Set crxSubReport = Report.OpenSubreport('subrep41.rpt') For Each crxDataBaseTable In crxSubReport.Database.Tables crxDataBaseTable.Location = GetComdLin Next crxDataBaseTable CRViewer1.ReportSource = Report CRViewer1.ViewReport While CRViewer1.IsBusy DoEvents Wend CRViewer1.Zoom (57) End Sub Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth CRViewer1.Zoom (2) End Sub Public Function GetComdLin() QngL = Command GetComdLin = Command Len_ = Len(GetComdLin) End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д