Visual Basic - AYUDA URGENTE CON VB & CRYSTAL !!!

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA URGENTE CON VB & CRYSTAL !!!

Publicado por Roberto (22 intervenciones) el 20/02/2003 19:10:49
Tengo un reporte especifico, en el cuál muestro unos valore por mes y año, yo tengo que filtrar según el mes y el año que el USUARIO especifique, pero no puedo armar la formula ????

Les paso la que tengo funcionando, filtrando por un solo campo:

Dim c As String
c = """"

CR.ReportFileName = App.Path + "\PagosGralxMes.rpt"
TextoMes = CBMes.Text
TextoAño = CBAño.Text

CR.SelectionFormula = "{Pagos.PagMes} =" & c & TextoMes & c
CR.WindowState = crptMaximized
CR.Action = 1

ASÍ ME ANDA PERO COMO AGREGARLE PARA FILTRAR POR EL AÑO TAMBIÉN ????

DESDE YA MUCHAS GRACIAS POR LA AYUDA !!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDA URGENTE CON VB & CRYSTAL !!!

Publicado por J2ML (2 intervenciones) el 20/02/2003 20:50:22
Prueba cambiando a esto:
CR.ReportFileName = App.Path + "\PagosGralxMes.rpt"
TextoMes = CBMes.Text
TextoAnhoo = CBAnho.Text
CR.SelectionFormula = "{Pagos.PagMes} ='"+ TextoMes+"' and {Pagos.PagMes} ='"+TextoAnho+"'"
CR.WindowState = crptMaximized
CR.Action = 1

Ojo no es error del editor cambié las ñ por nh....
J2ML
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:AYUDA URGENTE CON VB & CRYSTAL !!!

Publicado por Luis Rodrigo Solorzano (18 intervenciones) el 21/02/2003 17:14:42
hey colega. saludos.. bueno comencemos,
1.- se asume que los campos mes y anio son de tipo numerico en tu tabla
2.- armar la formula por aparte no sobre el objeto del crystal
3.- depende que Version de Crystal Este usuando...
4.- ahora como te sugiero que lo hagas... ( yo asi lo hago )

:::: en alguna parte de tu codigo ::::

dim SFRpt as string ' Para el filtro
dim NRpt as string ' para el nombre del reporte

SFRpt = "{tabla.campo_anio} =" & cstr(Txt_Anio) & " and {tabla.campo_mes} = " & cstr(Txt_Mes)
Nrpt = app.path + "\Mi_Reporte.rpt"

luego :
Reportes.ReportFileName = NRpt
Reportes.ReplaceSelectionFormula (SFRpt)
Reportes.WindowTitle = "Mi Titulo que yo quiero en la ventana"
Reportes.Destination = crptToWindow
Reportes.PrintReport

Reportes = el nombre de mi control del Crystal...
ojo Esto funciona en Crystal Reports 8.0.0.4
espero que te funione ... en caso contrario mandame un mail..
saludos.. desde guatemala...

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar