VB 2010 + CR XI + TTX
Publicado por Rafael (3 intervenciones) el 08/07/2015 21:00:58
Hola amigos del foro, estoy empezando a utilizar los ficheros .ttx, después de buscar en internet he encontrado varios ejemplos, pero cuando ejecuto el reporte me muestra el reporte en blanco, no aparecen datos, el código de lo que hago lo pongo a continuación. El reporte lo hago con Crystal Report XI y en VB2010.
Gracias de antemano a todo aquel que me pueda ayudar.
Gracias de antemano a todo aquel que me pueda ayudar.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim cnn1 As New OdbcConnection(gConnectionString)
Dim miInforme As New ReportDocument
Dim strReportName As String = "Reporte"
Dim strReportPath As String = "c:\Prueba\" & strReportName & ".rpt"
cnn1.Open()
miInforme.Load(strReportPath)
Dim cmd As New System.Data.Odbc.OdbcCommand("SELECT IdArt, NombreArt FROM Articulos", cnn1)
If cmd.ExecuteNonQuery ThenDim dt As New DataTable
Dim da As New OdbcDataAdapter(cmd)
Dim ds As New DataSet()
Dim cbArticulos As New OdbcCommandBuilder(da)
da.Fill(ds, "Articulos")
miInforme.SetDataSource(ds)
Me.CrystalReportViewer1.ShowRefreshButton = False
Me.CrystalReportViewer1.ShowCloseButton = False
Me.CrystalReportViewer1.ShowGroupTreeButton = False
Me.CrystalReportViewer1.ReportSource = miInforme
End If
cnn1.Close()
Me.CrystalReportViewer1.RefreshReport()
Valora esta pregunta
0