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


0