PDA

Ver la Versión Completa : Insertar campo nulo en un label


jrcosta75
06-02-2004, 14:27:01
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

__cadetill
06-02-2004, 14:35:04
Si el valor es nulo, "no tiene valor" (y notese las comillas) por lo que podrías asignarle una cadena vacía al Edit


if modelodatos.TblOfab.FieldByName('Dni').IsNull then
Form8.Label41.Caption := ''
else
Form8.Label41.Caption := modelodatos.TblOfab.FieldByName('Dni').AsString;


Espero te sirva