Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Problema con Grilla y Fecha (https://www.clubdelphi.com/foros/showthread.php?t=27577)

Patricio 24-11-2005 15:36:08

Problema con Grilla y Fecha
 
Hola estoy usando un componente wwDBGrid de una pestaña IPControls en Delphi 5, la cual me resulta muy buena.
Toma los datos de una consulta, una de las columnas es un campo fecha el cual lo muestra BARBARO menos en los casos que en la tabla no tiene ningun valor cargado en la fecha y en lugar de no mostrar nada me muestra 30/12/99 o algo asi. como puedo hacer para que no muestra nada o no haga esa conversion
Gracias

Fernando 24-11-2005 17:32:17

Revisa el campo "Fecha" en la base de datos. Debe ser "Nulo" en los casos que la fecha deba estar vacía.
Cuando guardes la fecha, asegúrate que sea Null cuando esté vacía.

Patricio 25-11-2005 13:52:22

Es Nulo
 
Yo cuando miro la base en el campo es null, pero la grilla cuando lo muestra me pone 30/12/99

Fernando 28-11-2005 17:31:18

Después de abrir la tabla o el query:

(table1.fieldbyname('fecha') AS TDateField).DisplayFormat:= 'dd/mmm/yyyy'
----- el formato lo puedes variar a tu gusto dd/mm/yy, mm/dd/yyyy, etc.

No recuerdo si es TDateField o TDateTimeField (no tengo delphi en esta PC)

Puede ser que con eso.

Saludos.

vtdeleon 28-11-2005 18:13:38

Saludos

Creo que la mejor solucion para esto es jugar con el evento OnDrawColumnCell del DBGrid
Código Delphi [-]
.....
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
   DX = 5;
   DY = 2;
   Str = ' ';
begin
  if(Column.Field is TDateField) then begin
     if TDateField(Column.Field).IsNull then
       DBGrid1.Canvas.TextRect(Rect, Left + 8, Rect.Top + DY, Str);
  end;
end;
No lo he probado


La franja horaria es GMT +2. Ahora son las 02:09:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi