Hola!
mi problema es que estoy tratando de abrir un reporte de Crystal reports desde visual basic usando el .selectionformula y no funciona!
Aqui esta mi codigo...
CrystalReport1.ReportFileName = App.Path & "\crhistorialmedico.rpt"
CrystalReport1.SelectionFormula = "{pacientes.sexo}=" txtSexo.text
CrystalReport1.PrintReport
Y no aparece nada!!! me estoy volviendo loco con esto, porque si suprimo la linea del selection formula si se abre el reporte, pero me muestra TODOS los registros (y eso no es loq ue yo quiero!)
Agradecere su ayuda...
Miguel Angel
Ayuda con Crystal Reports!!
Moderador: Moderadores
Crystal Reports el mejor reporteador OjO :p
Yo hace tiempo me concideraba bueno en VB6 oh.. pero no podia
imprimir......
y luego que....
Facil.
1.- hago consultas con sql (foltro) desde Vb6
2.- lo grabo en una tabla temporal(una tabla limpia) en donde solo se imprimen los condicionados.
3.-Y utilizo el sig.cod.
Private Sub GeneraReporte()
If Not Data2.Recordset.RecordCount = 0 Then
CrystalReport1.ReportFileName "C:\Trabajo\Desarrollo\Sistema de descuentos Version\Reportes\Rep_Incurrencias4dias_PorPersona.rpt"
CrystalReport1.DataFiles(0) = "C:\Trabajo\Desarrollo\scpb\Bases_datos\NombreBaseAccess.mdb"
CrystalReport1.WindowTitle = " §istema de Registro de incidencias de Personal(SRIP Ver. 1.0)"
CrystalReport1.Destination = crptToWindow
CrystalReport1.PrintReport
Else
MsgBox "No existen registros"
End If
End Sub
espero te cirba si es así contestame
mi correo es: cibertecus@hotmail
imprimir......
y luego que....
Facil.
1.- hago consultas con sql (foltro) desde Vb6
2.- lo grabo en una tabla temporal(una tabla limpia) en donde solo se imprimen los condicionados.
3.-Y utilizo el sig.cod.
Private Sub GeneraReporte()
If Not Data2.Recordset.RecordCount = 0 Then
CrystalReport1.ReportFileName "C:\Trabajo\Desarrollo\Sistema de descuentos Version\Reportes\Rep_Incurrencias4dias_PorPersona.rpt"
CrystalReport1.DataFiles(0) = "C:\Trabajo\Desarrollo\scpb\Bases_datos\NombreBaseAccess.mdb"
CrystalReport1.WindowTitle = " §istema de Registro de incidencias de Personal(SRIP Ver. 1.0)"
CrystalReport1.Destination = crptToWindow
CrystalReport1.PrintReport
Else
MsgBox "No existen registros"
End If
End Sub
espero te cirba si es así contestame
mi correo es: cibertecus@hotmail
Re: Ayuda con Crystal Reports!!
>>CrystalReport1.SelectionFormula = "{pacientes.sexo}=" txtSexo.text
Puede ser que solo te este faltando el "&"
>>CrystalReport1.SelectionFormula = "{pacientes.sexo}=" & txtSexo.text
Andres Sanchez R.
PROYECTO FUSSION - Sistemas Administrativos GRATIS
http://www.fussion.com.mx/
Puede ser que solo te este faltando el "&"
>>CrystalReport1.SelectionFormula = "{pacientes.sexo}=" & txtSexo.text
Andres Sanchez R.
PROYECTO FUSSION - Sistemas Administrativos GRATIS
http://www.fussion.com.mx/
Re: Ayuda con Crystal Reports!!
>>CrystalReport1.SelectionFormula = "{pacientes.sexo}=" & txtSexo.text
o le falten comillas como por ejemplo:
>>CrystalReport1.SelectionFormula = "{pacientes.sexo}='" & Trim(txtSexo.text) & "'"
Andres Sanchez R.
PROYECTO FUSSION - Sistemas Administrativos GRATIS
http://www.fussion.com.mx/[/quote]
o le falten comillas como por ejemplo:
>>CrystalReport1.SelectionFormula = "{pacientes.sexo}='" & Trim(txtSexo.text) & "'"
Andres Sanchez R.
PROYECTO FUSSION - Sistemas Administrativos GRATIS
http://www.fussion.com.mx/[/quote]