Using preview control

[cheyenne12]

fill the dataset with a code, and not display the report,

Imports System.Data.SqlClient
Public Class FrmImprimirFactura
Inherits System.Windows.Forms.Form

Public CodigoFactura As String = "FC2008-100"

Private Sub FrmImprimirFactura_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CodigoFactura = "FC2008-100"
Imprimir()
End Sub
Private Sub FrmImprimirFactura_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub Imprimir()
Dim Cn As New SqlConnection(My.Settings.GxDatabaseConnectionString.ToString())
Dim FacturaAdapter As New SqlDataAdapter("SELECT * FROM Factura WHERE CodigoFactura='" + CodigoFactura + "'", Cn)
Dim DetalleFacturaAdapter As New SqlDataAdapter("SELECT * FROM DetalleFactura WHERE CodigoFactura='" + CodigoFactura + "'", Cn)
FacturaAdapter.Fill(Me.SismasFNowDataBase.Factura)
DetalleFacturaAdapter.Fill(Me.SismasFNowDataBase.DetalleFactura)
'Me.ReportFactura.RegData(Me.SismasFNowDataBase)
Me.ReportFactura.Compile()
PreviewFactura.Report = ReportFactura
End Sub
'

[Vital]

Hello,

Please add following line of code:

Code: Select all

Me.ReportFactura.Render()

after method:

Code: Select all

Me.ReportFactura.Compile()

Thank you.