Reporte con dos dataset

[Highlander]

Iniciado por Ka0stj

Echale un ojo al siguiente enlace:

http://www.elguille.info/colabora/pu...ortDataset.htm

O bien lo que también puedes hacer es una vista entre ambas tablas.

Saludos!

GRacias con ese link ya logre llenar los dos dataset, pero surgio otro problema al momento de generar el reporte.

Cuando agrego cualquier campo del dataset2 al reporte por alguna razon me duplica datos del dataset 1 del area (DETAILS), si remuevo los datos del dataset2 se va el problema.


Asi quedo el codigo.

Código:

 Private Sub ReporteOrdenTemplado_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim frmOrdenThermopanel As frmOrdenThermopanel = frmOrdenThermopanel.Instance
        Dim CodigoOrdenThermopanel As Integer = frmOrdenThermopanel.Codigo

        Dim sqlDaProd As SqlDataAdapter
        Dim sqlDaCate As SqlDataAdapter
        Dim dsPc As New ReporteThermopanel

        Dim StrCommCate As String = "SELECT OrdTrabajoThermopanel.Venta, OrdTrabajoThermopanel.Obra, OrdTrabajoThermopanel.Poli, OrdTrabajoThermopanel.Silicona, OrdTrabajoThermopanel.Cliente, OrdTrabajoThermopanel.Rut, OrdTrabajoThermopanel.Direccion, OrdTrabajoThermopanel.Fono, OrdTrabajoThermopanel.Factura, OrdTrabajoThermopanel.OC, OrdTrabajoThermopanel.ObraN, OrdTrabajoThermopanel.Observaciones, OrdTrabajoThermopanel.FechaIngreso, OrdTrabajoThermopanel.Serial, OrdTrabajoThermopanel.Supervisor, OrdTrabajoThermopanel.TotalCantidad as TotalCantidadOrden, OrdTrabajoThermopanel.TotalM2, Vendedores.Nombre as Vendedor, ItemOrdTrabajoThermopanel.Cantidad, ItemOrdTrabajoThermopanel.Cristal1, ItemOrdTrabajoThermopanel.Cristal2, ItemOrdTrabajoThermopanel.Separador, ItemOrdTrabajoThermopanel.Ancho, ItemOrdTrabajoThermopanel.Alto, ItemOrdTrabajoThermopanel.Tipo, Logo.Logo FROM OrdTrabajoThermopanel LEFT JOIN Vendedores ON Vendedores.Codigo = OrdTrabajoThermopanel.CodigoVendedor LEFT JOIN ItemOrdTrabajoThermopanel ON ItemOrdTrabajoThermopanel.CodOrdTrabajoThermopanel = OrdTrabajoThermopanel.Codigo LEFT JOIN Logo ON Logo.Codigo = 1  WHERE OrdTrabajoThermopanel.Codigo = " & CodigoOrdenThermopanel
        Dim strCommProd As String = "SELECT ItemResumenThermopanel.Cristal, ItemResumenThermopanel.TotalCantidad FROM ItemResumenThermopanel WHERE ItemResumenThermopanel.CodOrdTrabajoThermopanel = " & CodigoOrdenThermopanel & ""

        Try

            mSqlServerExpress.Conectar()

            'Crear los DataAdapters
            sqlDaCate = New SqlDataAdapter(StrCommCate, conexionSqlEx)
            sqlDaProd = New SqlDataAdapter(strCommProd, conexionSqlEx)

            'Poblar las tablas del dataset desde los dataAdaperts
            sqlDaCate.Fill(dsPc, "OrdenThermopanel")
            sqlDaProd.Fill(dsPc, "ResumenThermopanel")

            'Poblar el informe con el dataSet y mostrarlo
            Dim info As New OrdenThermopanel
            info.SetDataSource(dsPc)
            CrystalReportViewer1.ReportSource = info


            mSqlServerExpress.Desconectar()

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try

    End Sub