| Pregunta: | 26301 - DATAREPORT.PROBLEMAS CON EL RPTLABEL |
| Autor: | Damian Hernandez |
| Hola a todos me gustaria saber si alguien me puede ayudar en cuanto a : al diseñar el datareport en la sección de de titulos coloco unos rptlabel , que al hacer en tiempo de ejecucion un .show del mismo necesito asignar a la propiedad caption del rptlabel el valor de una variable , al igual que en el caso de un formulario .Lo que me ocurre es que esto el datareport no me lo permite , ya probe en varios eventos del mismo y nada!!!!!
Muchas gracias y felices fiestas!!!!!! | |
| Respuesta: | Genaro N. Condori Estaca |
| Damian la forma en que puedes resolver tu problema esdela siguiente manera:
La fución rptLabel_Format te permitira cambiar las propiedades que requieras al objeto rptLabel. Para ello es necesario que le asignes a tu etiqueta un nombre para poderlo referenciar, por medio de suspropiedades (F4). Private Sub FormatLabel(lblX As RptLabel, Caption As String) With lblX .Alignment = rptJustifyCenter .BackColor = vbYellow .BackStyle = rptBkOpaque .BorderStyle = rptBSSolid .CanGrow = True .Caption = Caption .Font.Name = "Bookman" End With End Sub Sub Maint() Dim r As drCustomers ' Este es el DataReport Set r = New drCustomers 'Aca llamas a la función que cambiara la etiqueta que tu indiques 'es necesario que indiques en que sección se encuentra (por 'ejemplo:PageHeader ) y elcontrol que deseas actualizar en este caso ' un rptLabel llamada lbEncabezado FormatLabel r.Sections("PageHeader").Controls("lbEncabezado"), _ "Company Report " & Date r.Show vbModal Set r = Nothing End Sub Espero haber resuelto tu problema, si te queda alguna duda puedes escribirme a [email protected] Saludos | |