FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
formateo de Dato en Dbgrid
Hola a todos
Trabajo con Delphi 7 tengo una dbgrid y necesito condicionar el formato Si el dato es > 0, darle el sgte formato "0.0000" de lo contario dejarlo en blanco, pero nose como llegar a cambiar formato, si he llegado a cambiar el color pero el formato no he podido.... me imagino que debo trabajar con el evento dbgriddrawcolumncell.... o estoy equivocada??? muchas gracias de antemano.... |
#2
|
||||
|
||||
Hola
Me imagino que en el evento onChange del dataset asociado al campo. Saludos
__________________
Siempre Novato |
#3
|
||||
|
||||
Para hacer lo que quieres, el objeto TField proporciona el evento OnGetText. Tienes que crear un evento del tipo TFieldGetTextEvent. Luego asignalo a la propiedad del campo al que quieres cambiar el formato después que el dataset contenedor sea abierto. En el evento TFieldGetTextEvent que hayas creado escribirás el código en donde proporcionaras el formato que tendrá tu campo.
Saludos, Chris |
#4
|
||||
|
||||
Hola BPL.
Coincido con Chris en el evento a capturar. El código que te pongo, lo podés asignar a cualquier campo numérico:
Podés asignarlo con doble click sobre el evento del campo asociado o mediante código:
Saludos. Última edición por ecfisa fecha: 18-08-2010 a las 22:06:20. |
#5
|
||||
|
||||
gracias ChHris y Ecfisa, ver el codigo me sirvio un poco mas, pero igual algo debo estar haciendo malo, porque no logro compilar, me reclama que faltan parametros, y a simple vista si me faltan, pero no logro llegar a lo correcto.
me podrian ayudad un poquito mas..... |
#6
|
||||
|
||||
Hola de nuevo.
No especificás mcuho hacerca del error..., pero será sobre el evento OnGetText no ? De ahora en más me voy a referir al campo involucrado como: tuCampo. 1) Hacé doble click sobre la tabla involucrada, eso te abre el editor de campos. 2) Hacé click con botón derecho del mouse y elegí: Add all fields de la ventana emergente. 3) Hacé click sobre tuCampo. 4) En el Object Inspector hacé click sobre la pestaña Events. 5) Hacé doble click sobre el evento OnGetText. 6) Te va a haber creado el esqueleto del procedimiento y dejado en el editor de Delphi de este modo:
Dentro de él, pegá el siguiente código:
Saludos. Última edición por ecfisa fecha: 19-08-2010 a las 02:59:51. |
#7
|
|||
|
|||
Has probado con la propiedad DisplayFormat?.
Yo la uso y me funciona. Saludos. |
#8
|
||||
|
||||
Chicos,
Haber parece que mi error fue no explicarme bien, estoy trabjando con una SQL (creada en tiempo de ejecucion) el resultado de esta SQL, la muestro en una dbgrid, uno de los campos es Espesor. Ahora lo que necesito es que "solo" cuando el dato es mayor a 0 lo formatee asi "0.0000" de lo contario no muestre nada. por el minuto lo estoy haciendo con el displayformat despues de abrir la SQL " (FieldByName('Espesor') AS TFloatField).DisplayFormat := '#.####' " pero el problema es que me muestra de esta manera .010 y necesita que se muestre completa 0.0100 pero si no hay dato no muestra nada...... por eso yo creo que va mas por el onDrawColumnCell, ya que el formato no es para toda la columna de una vez sino personalizada para cada dato... espero me hallan logrando entender ahora.... gracias por la atencion prestada...y espero que me siguan ayudando.,... |
#9
|
|||
|
|||
FieldByName('Espesor') AS TFloatField).DisplayFormat := '0.0000';
Me aparece 0,0010. saludos. |
#10
|
||||
|
||||
pero cuando no existe dato me saldria 0.0
y es eso lo que precisamente no debe ocurrir, insisto debe salir blanco nada.... |
#11
|
|||
|
|||
Uso Firebird y tengo dos campos numericos (debe,haber), de tal modo que si uno de los campos no contiene nada no almacena 0, sino null. En el dbgrid el campo que tiene almacenado null, no aparece en el otro sí, según displayformat.
Saludos. |
#12
|
||||
|
||||
no en mi caso no pasa eso,
como antecedente yo trabajao con Delphi 7 + Advantage (motor) pucha..... |
#13
|
||||
|
||||
Cita:
No importa si trabajas sobre un TTable o TQuery, en definitiva estamos hablando de un TField. En el post puse un TTable como ejemplo, pero lo mismo vale para un TQuery. Repetí los pasos que te puse sobre el TTable en el TQuery y me contás. Saludos. |
#14
|
||||
|
||||
Ando super perdida, no entender nada...
mira aqui te muestro como lo escribi.....y mas abajito te explico... Procedure GrillaDrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column:TColumn; State: TGridDrawState); begin if (Grilla.DataSource.DataSet['Espesor'] > 0 ) then begin Grilla.DataSource.DataSet['Espesor'].OnGetText := qrCotDetalleEspesorGetText ; end; Procedure qrDetalleEspesorGetText(Sender:TField; var Text:string; DisplayText:Boolean) ; Begin if TField(sender).Value > 0 Then Text := FormatFloat('0.0000',TField(Sender).Value) ; end ; en el evento DrawColumnCell de la Grilla (GrillaDrawColumnCell), aqui es la instancia en donde necesito evaluar el dato, por decir algo aqui se esta dibujando la grilla. al compilar asi como esta escrito arriba, me reclama por falta de parametros en "qrCotDetalleEspesorGetText", que a simple vista si me faltan... despues de alguna manera agrego los parametros que faltan, compilo y me sale el sgte msg de error project sisventas.exe raised exception class EVariantInvalidOpError with message "Invalid variant operation'. y lo otro que no logro entender, como replico lo que tu me explicas en el post, con respecto hacer click en tabla, add all fields, evento, onGetText, mi tabla o query no existe hasta que se ejecuta el programa.... igual trate de hacer algo pero no di.,.... pucha ojala no te aburras,,, y sigas tratando de explicarme.... |
#15
|
||||
|
||||
No te preocupes, si me aburriera no estaría aca leyendo...
Olvidate por completo de la Grilla,este código no vá:
En el Form donde tengas la Tabla o Query, hacé esto:
Ahora ya tenemos asignado el procedimiento FieldGetText al evento OnGetText del campo 'Espesor', así que escribimos el procedimiento:
La asignación al evento OnGetText del campo 'Espesor' se produce cuando se crea el Form y ya está, no hay que asignarlo a cada dibujo de la Grilla. Ante cualquier duda, escribí nuevamente. Saludos. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Mascara de un dato en un Dbgrid | sancarlos | OOP | 2 | 21-07-2008 20:09:40 |
Capturar un dato de un dbgrid | SaLvaGe | Conexión con bases de datos | 5 | 15-09-2005 19:26:17 |
guardar en variable dato de un dbgrid | el_barto | Conexión con bases de datos | 2 | 30-07-2005 14:41:04 |
extraer un dato de un dbgrid | detybel | Conexión con bases de datos | 4 | 26-03-2005 06:01:45 |
Mostrar un dato de un DBGrid en un Edit | marial | Conexión con bases de datos | 3 | 03-06-2004 21:40:41 |
|