Ok, para crear los TTX solo cuando te pregunte lo de los datos, pon crear nueva conexion->Field definitions Only y pones crear archivo y ahi lo diseñas pones lo campos que vas a ocupar en el reporte y su tipo tienen que ser iguales a como los tienes en tu DB (nombre y tipo), y en base a ese archivo .TTX creas el reporte ahora para mandar los datos es asi (es con Access):
Código:
Dim crxreport As CRAXDRT.Report
Dim crxApplication As New CRAXDRT.Application
Dim rs1 As New ADODB.Recordset
Dim crpDatabase As CRAXDRT.Database
Dim crpTables As CRAXDRT.DatabaseTables
Dim crpTable As CRAXDRT.DatabaseTable
Dim cn As New ADODB.Connection
Private Sub Form_Load()
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\vehiculos.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=hola"
sentencia = "select vale.idvale,vale.idvehiculo,vale.fecha,vale.kilometraje,combustible.nomcombustible,vale.cantidad,vale.precio*vale.cantidad,vale.status from vale inner join combustible on(vale.idcombustible=combustible.idcombustible) where vale.status<>'Cancelado'"
Set rs1 = cn.Execute(sentencia)
Screen.MousePointer = vbHourglass
Set crxreport = crxApplication.OpenReport(App.Path & "\Reporte vales.rpt")
crxreport.DiscardSavedData
Set crxDatabase = crxreport.Database
Set crxDatabaseTables = crxDatabase.Tables
crxreport.Database.SetDataSource rs1
CrystalActiveXReportViewer1.ReportSource = crxreport
CrystalActiveXReportViewer1.EnableExportButton = True
CrystalActiveXReportViewer1.DisplayGroupTree = False
CrystalActiveXReportViewer1.EnablePopupMenu = False
CrystalActiveXReportViewer1.EnableDrillDown = False
CrystalActiveXReportViewer1.EnableSelectExpertButton = False
CrystalActiveXReportViewer1.ViewReport
CrystalActiveXReportViewer1.Zoom 100
Screen.MousePointer = vbDefault
End Sub