Visual Basic - no mostrar txtbox y etiqueta en datarepor

Life is soft - evento anual de software empresarial
 
Vista:

no mostrar txtbox y etiqueta en datarepor

Publicado por cristian (2 intervenciones) el 01/09/2005 17:17:35
resulta que estoy intentando, hacer lo siguiente en un data report:

1) estoy evaluando un campo de una tabla y si el campo es = 0 entonces
2)la etiqueta1 de la seccion 1 al igual que el control txtBox del data_report debe hacerse "invisible"

pero resulta que yo lo que kiero es que se hagan invisible solo los controles
en los que el mencionado campo es ceros, y los demas controlos sean visible, no se
si me explico.
el data report lo tengo enlazado a un data_enviroment

osea,kiero un reporte que dependiendo de los valores del campo me haga algo
similar a la siguiente:

digamos que el campo a evaluar sea "CAMPO2"

campo1 100
CAMPO2 200
campo3 50
campo4 100
______________

campo1 10
<-- aki por supuesto el campo2 es cero(0)
campo3 22
campo4 100
_____________

campo1 100
CAMPO2 100
campo3 50
campo4 333
___________________________
___________________________


LA FORMA EN COMO TENGO EL DATA_REPORT ACTUALMENTE ES LA SIGUIENTE:
-----------------------------------------------------------------
campo1 100
CAMPO2 200
campo3 50
campo4 100
______________

campo1 10
CAMPO2 0 <----- nooooooo!!!!
campo3 22
campo4 100
_____________

campo1 100
CAMPO2 100
campo3 50
campo4 333
___________________________
___________________________

estuve intentando con lo siguiente pero no me dio resultado:

Set BD_campo = OpenDatabase("C:\Documents and Settings\Administrador\Mis documentos\prueba2.mdb")
'SQL = "SELECT * FROM oficios WHERE nro_oficio = '" & temp_oficio & "'"
Set TB_campo = BD_campo.OpenRecordset("campos")


TB_campo.MoveFirst 'se mueve el recordset al primer registro
Do Until TB_campo.EOF 'hacer hasta que sea el final del recordset
Set reporte = New reporte
If TB_campo!campo2 = 0 Then
reporte.Sections("Sección1").Controls("etiqueta2").Visible = False
End If
TB_campo.MoveNext
Loop
reporte.Show

Gracias, espero cuaquier 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

RE:no mostrar txtbox y etiqueta en datarepor

Publicado por Loud_in (110 intervenciones) el 02/09/2005 21:46:07
Viejo, lo que haces esta muy bien, sin embargo, el DTRep no le va a reconocer los nombres. la solucion, es ADIVINAR. eso es lo que yo hago.
esto lo inicie a hacer, cuando debia llevar informacion que no esta en la BD. como fechas o sumas especiales. en tu caso, debes iniciar a adivinar cada control de cada seccion. pilas, el orden en que los ubiques o los añadas al DTRep, no indica el numero indice. ni tampoco su propiedad indice. ten encuenta como lo adivinas, ve llevando informacion a cada uno por ej.
reporte.Sections(1).Controls(1).caption="Hola"
asi, sabras cual es cual.
por ejemplo, este es uno de un codigo mio:
InformeQuirofanoUno.Sections(1).Controls(1).Caption = Format(Date, "Long Date")
ten presente, que debes utilizar las propiedades del ojeto al cual accedes. ej: un rptlbl no te aacepta .text como los rpttext no aceptan .caption. igualmente, si manipuilas controles de la seccion detalles, por ejemplo, . visible=false, desaparecera el control en cada uno de los registro.

Loud_in
Med_Colombia
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