Как внедрить созданный отчет (*.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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы