Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-02-2004
jrcosta75 jrcosta75 is offline
Miembro
 
Registrado: feb 2004
Ubicación: Argentina
Posts: 13
Poder: 0
jrcosta75 Va por buen camino
Talking Insertar campo nulo en un label

Necesito saber como introducir una campo nulo de una tabla paradox 7 en un label ubicado sobre un form (Estoy utilizando Delphi 5 Enterprice)
Yo lo hice de la siguiente manera:
procedure TForm9.DBGrid1DblClick(Sender: TObject);
var
dni: Variant;
begin
dni:=modelodatos.TblOfab.FieldValues['Dni'];
Form8.Label41.Caption:=dni;
end;

pero me arrojo el siguiente error:
Proyect Proyect1.exe raised exception class EVariantError with messagge 'Invalid type variant conversion' Process stopped. Use Step or Run to continue

Desde ya muchas gracias.
Saludos
__________________
Cita:
El servir es mejor que el recibir
Responder Con Cita
  #2  
Antiguo 06-02-2004
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 25
__cadetill Va por buen camino
Si el valor es nulo, "no tiene valor" (y notese las comillas) por lo que podrías asignarle una cadena vacía al Edit

Código:
if modelodatos.TblOfab.FieldByName('Dni').IsNull then
   Form8.Label41.Caption := ''
else
   Form8.Label41.Caption := modelodatos.TblOfab.FieldByName('Dni').AsString;
Espero te sirva
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 15:30:19.


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
Copyright 1996-2007 Club Delphi