Recursos Visual Basic.NET, VB.NET, Manuales de programación, Tutoriales, Foros de programación, Comunidad de programadores

Private Sub Form_Load()
   Dim crParamDefs As CRAXDDRT.ParameterFieldDefinitions
   Dim crParamDef As CRAXDDRT.ParameterFieldDefinition
   
   On Error GoTo ErrHandler

   Screen.MousePointer = vbHourglass 
    
   mflgContinuar = True
   
   Set rsPed = New ADODB.Recordset
   strSQL = "SELECT * FROM PedidSEA WHERE Numero = '" & TBcNumPed & "'"
   rsPed.Open strSQL, g_db, adOpenDynamic, adLockOptimistic

   Set crReport = objApp.OpenReport(App.Path & "\A4LiPeSEA.rpt", 1)     
   
   Set crParamDefs = crReport.ParameterFields
   For Each crParamDef In crParamDefs
      Select Case crParamDef.ParameterFieldName
         Case "Prueba"
            crParamDef.AddCurrentValue (TBcNumPed)
      End Select
   Next

   With crReport
      .Database.SetDataSource rsPed
      .PaperOrientation = 1
      .PaperSize = 0
      .DiscardSavedData
   End With
   
   With crViewer1
      .ReportSource = crReport
      .ViewReport
      .Zoom (95)
   End With
   
   Screen.MousePointer = vbDefault

   Set crParamDefs = Nothing
   Set crParamDef = Nothing
   Exit Sub

ErrHandler:
   If Err.Number = -2147206461 Then
      MsgBox "El archivo de reporte no se encuentra, restáurelo
           de los discos de instalación", _
         vbCritical + vbOKOnly
   Else
      MsgBox Err.Description, vbCritical + vbOKOnly
   End If

   mflgContinuar = False
   Screen.MousePointer = vbDefault
    
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Set crReport = Nothing
   Set objApp = Nothing
End Sub