|
Como imagino que ya sabras que hay dos formas de mostrar reportes en de CR en VB (archivos externos rpt y codigo incrustado dsr) te explicare los dos:
Reportes Externos rpt (DiscardSavedData)
Private Sub cmdAceptar_Click()
CrystalReport1.DiscardSavedData = True
CrystalReport1.LogonInfo(0) = "DSN = " + ga_ServidorSQL + ";UID = " + IDSAG + ";PWD = " + PWD + ";DSQ = " + BD
rptLibroDiario.Action = 1
End Sub
Recuerda poner LogonInfo(indice) tantas tablas tengas en tu reporte...(puedes crear una funcion)
Reportes Internos dsr (DiscardSavedData) (este codigo lo pones en la forma donde esta el viewer)
' crea una variable de tipo tabla
Dim tabla As CRAXDRT.DatabaseTable
' Logeate a las tablas del reporte
For Each tabla In Report.Database.Tables
tabla.SetLogOnInfo ga_ServidorSQL, BD, ID, PWD
Next
Listo
Otra forma es en las opciones del reporte, busca donde dice "Save Date With Report" y desactivalo
PD:(Prueba lo anterior pero yo trabajo con codigo incrustado es decir hacer los reportes desde visual asi no da ningun tipo de problema)
|
