SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: ccortes en Jueves 11 de Septiembre de 2003, 17:18
-
Tengo un reporte hecho en Crystal pero cuando utilizo esta opcion:
Reporte.SelectionFormula = "{Repordia.Fecha}='" & DTPicker1 & "' AND {Repordia.Fecha} ='"DTPicker2 "'"
Me da "error en la formula"
pense que era por el DTPicker, lo cambie por textbox y siempre paso lo mismo
Pero si utilizo otro campo que no sea de tipo fecha y lo comparo con numeros no hay.
Sera que el crystal report no acepta comparaciones con fecha que utilice los palitos 00/00/00
Como puedo solucionar mi problema?????????
-
¿No tendrás que convertir los DTPicker así?:
"{Repordia.Fecha} >= DateValue(""" & DTPicker1 & """)" _
& " And {Repordia.Fecha} <= DateValue(""" & DTPicker2 & """)"
Los campos de tipo Date tienen sus perendengues y no tengo todavía bien aclarado cuándo hay que convertirlos y cuándo hay que tratarlos directamente...
Saludos y suerte.
-
Lo hice pero tampoco funciono
-
Proba este codigo a mi me funciona
Private Sub CmdPrint_Click()
Dim sFecha1, sFecha2 As String
sFecha1 = CStr(DTPick1.Value)
sFecha2 = CStr(DTPick2.Value)
CrystalReport1.SelectionFormula = "{tblResumenHoras.Fecha} in date (" & "#" & sFecha1 & "#" & ") to date (" & "#" & sFecha2 & "#" & ")And {tblResumenHoras.Cod_Legajo}=" & "'" & DataCombo1.BoundText & "'"
CrystalReport1.SortFields(0) = "+{tblResumenHoras.Fecha}"
CrystalReport1.PrintReport
End Sub
un abrazo
-
Me ha funcionado en SelectionFormula de Crystal la instrucción con siguiente formato: Date("yyyy,m,d")
CrystalReport.SelectionFormula = "{Fichas.FECHA}=Date(" & Format(DTPicker1, "yyyy,m,d") & ")"
:)
-
Gracias :good: :good: :good: :jumpie: :jumpie: :jumpie: cpmario eso si me ha servido