• Jueves 14 de Noviembre de 2024, 04:32

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - luzbelito

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Crystal report
« en: Jueves 18 de Septiembre de 2003, 14:20 »
Te agradezco mucho tu ayuda, tengo CR8 y esa sentencia la probe pero algo debo tener mal porque no me funciono.

exactamente como escribi el codigo

Dim sFecha1, sFecha2 As String
sFecha1 = CStr(DTPick1.Value)
sFecha2 = CStr(DTPick2.Value)

CrystalReport1.DiscardSavedData = True

CrystalReport1.SelectionFormula = "{tblResumenHoras.Fecha} in date (" & "#" & sFecha1 & "#" & ") to date (" & "#" & sFecha2 & "#" & ")And {tblResumenHoras.Cod_Legajo}=" & "'" & DataCombo1.BoundText & "'"
CrystalReport1.SortFields(0) = "+{tblResumenHoras.Fecha}"

CrystalReport1.PrintReport

2
Visual Basic 6.0 e inferiores / Re: Crystal report
« en: Viernes 12 de Septiembre de 2003, 17:32 »
El tema es que no se actualizan los reportes cuando agrego datos a las tablas
Como los actualizo en tiempo de ejecucion
Gracias

3
Visual Basic 6.0 e inferiores / Re: Error en formula con fechas(dtpicker)
« en: Viernes 12 de Septiembre de 2003, 14:41 »
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

Páginas: [1]