Visual Basic - Visual con crystal

Life is soft - evento anual de software empresarial
   
Vista:

Visual con crystal

Publicado por Danny Marcano (2 intervenciones) el 09/07/2009 18:23:10
Buenas buenas... primero q nada gracias x molestarse en leer esto..!
Mi duda va en un proyecto de visual basic en el cual necesito q imprima un reporte.
Ya tengo el reporte hecho y necesito q lo imprima segun como el usuario lo quiera. me explico:
Tengo varios frame en un formulario, cada frame tiene varios option. lo que me piden es q cuando el usuario marque por ejemplo textil (uno de los option del primer frame) el reporte me imprima todas las empresas de rubro textil. eso lo hace correctamente, pero tambien me piden q cuando marque textil y semestral(uno de los option del segundo frame) me imprima todos los textiles conj periodos semestrales y asi con los demas frames.

En realidad es primera vez q trabajo con crystal 8.0 y no se mucho de esto. aqui les dejo el codigo q tengo cuando imprime los textiles.
de una vez muchas gracias y espero logren ayudarme

If Option8.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Otro'"
ElseIf Option1.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Textil'"
ElseIf Option2.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Alimenticia '"
ElseIf Option3.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Transporte'"
ElseIf Option4.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Papeleria'"
ElseIf Option5.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Metalmecanica'"
ElseIf Option6.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Automotriz'"
ElseIf Option7.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Construccion'"
ElseIf Option9.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Mantenimiento'"
ElseIf Option10.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Petrolera'"
ElseIf Option11.Value = True Then
formula = "{ENCUEMPRE.Objetivo_de_produccion}='Salud, higiene o Cosmeticos'"
End If

Reporte1.SelectionFormula = formula
Reporte1.Destination = crptToWindow
Reporte1.WindowShowPrintSetupBtn = True
Reporte1.WindowShowSearchBtn = True
Reporte1.WindowState = crptMaximized
Reporte1.WindowTitle = "Impresión de Encuesta"
Reporte1.ReportFileName = App.Path & "Encuesta.rpt"
Reporte1.RetrieveDataFiles
Reporte1.PrintReport
end sub
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