Hola, ya he conseguido pasar los datos así,
Código:
Dim f As New PlantillaReport
Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim DS As DataSet
Dim Query As String
If VG.TipoEtiquetaInspeccion = "Animales" Or VG.TipoEtiquetaInspeccion = "Contenedores de Animales" Then
rpt = New ActaInspeccionAnimales
Else
rpt = New ActaInspeccionSubproductos
End If
Query = " SELECT * FROM trav_acta " + _
" WHERE c_tipo_transp = '" + VG.TipoTransp + "'" + _
" AND c_tipo_medio = '" + VG.TipoMedio + "'" + _
" AND c_anno_acta = " + VG.AnnoActa + _
" AND c_prov_acta = " + VG.ProvActa + _
" AND c_sec_acta = " + VG.SecActa
Dim da As New SqlClient.SqlDataAdapter(Query, VG.ConexionBD)
DS = New DataSet
da.Fill(DS, "Actas")
rpt.SetDataSource(DS.Tables("Actas"))
CrystalReportViewer1.ReportSource = rpt
El tema es que tiene que haber alguna forma de con pasarle unos parámetros sacarme todo el report, porque si os fijais le paso un datatable con el resultado de una query pero que es bastante más complicada que lo que tengo puesto...y pienso que tiene que haber una forma que pasaron los campos clave de la tabla que le paso trav_acta, como el esquema de la base de datos y los cruces ya les tengo en el report, no tengo que ponerlos de nuevo en esta query...no se si me explico bien....