FORMULA SQL CRYSTAL REPORT
Publicado por LIKOLO (2 intervenciones) el 11/03/2008 00:21:18
Wenas.
El caso esque hasta la fecha no se me ha complicado ningun reporte para el programa de facturacion que estoy haciendo.Los saco por fechas,en grupo,con subinformes,etc.
Pero ahora se me ha ocurrido mostrar un reporte de CLIENTES en el cual se muestras los clientes en secciones.
Es decir. de la "A" a la "G" de la "B" a la "P" etc. Pero no veo la forma de hacerlo.
hos mando parte de codigo para que veais como lo estoy intentando hacer.
SQL = "{CLIENTES.NombreComercia} LIKE '" & Listado_clientes.Combo1 & "*" & "' OR {CLIENTES.NombreComercia} LIKE '" & Listado_clientes.Combo2 & "*" & "'"
crReport.RecordSelectionFormula = SQL
CRViewer.ReportSource = crReport
CRViewer.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing
en este trozo de codigo si el VALOR del combo1="A" me muestra todos los registros que empizan por "A" y si el combo2="D" idem de lo mismo.Pero no me saca los que estan por medio. En fin a ver si alguien me puede hechar una mano con este dilema.
sin mas un saludo.
IF SimeRespondes=vbyes then
msgbox "Muchas gracias."
else
msgbox "Gracias de todas formas."
end if
El caso esque hasta la fecha no se me ha complicado ningun reporte para el programa de facturacion que estoy haciendo.Los saco por fechas,en grupo,con subinformes,etc.
Pero ahora se me ha ocurrido mostrar un reporte de CLIENTES en el cual se muestras los clientes en secciones.
Es decir. de la "A" a la "G" de la "B" a la "P" etc. Pero no veo la forma de hacerlo.
hos mando parte de codigo para que veais como lo estoy intentando hacer.
SQL = "{CLIENTES.NombreComercia} LIKE '" & Listado_clientes.Combo1 & "*" & "' OR {CLIENTES.NombreComercia} LIKE '" & Listado_clientes.Combo2 & "*" & "'"
crReport.RecordSelectionFormula = SQL
CRViewer.ReportSource = crReport
CRViewer.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing
en este trozo de codigo si el VALOR del combo1="A" me muestra todos los registros que empizan por "A" y si el combo2="D" idem de lo mismo.Pero no me saca los que estan por medio. En fin a ver si alguien me puede hechar una mano con este dilema.
sin mas un saludo.
IF SimeRespondes=vbyes then
msgbox "Muchas gracias."
else
msgbox "Gracias de todas formas."
end if
Valora esta pregunta


0