Ver Mensaje Individual
  #2  
Antiguo 03-05-2010
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Reputación: 19
look Va camino a la fama
Cita:
Empezado por Rofocale Ver Mensaje
hola a todos alguien me ayuda ?.. mi programa usa una base de datos firebird al intentar borrar un registro desde el boton del navigator me da error diciendo could not convert variant of type (null) into type (int64) a que se debe esto ? antes no salia y no se porque..
alguien tiene una idea ?

este es el codigo que uso en beforedelete de la tabla

Código Delphi [-]tfacturas.Filter := 'ID2=' + IntToStr(tnumfact.FieldByName('ID').Value); tfacturas.Filtered := true; while not tfacturas.eof do tfacturas.delete; tfacturas.Filtered := false; tnumfact.Filter := 'ID2=' + IntToStr(tclientes.FieldByName('ID').Value); tnumfact.Filtered := true; while not tnumfact.eof do tnumfact.delete; tnumfact.Filtered := false; tguias.Filter := 'ID2=' + IntToStr(tnumguias.FieldByName('ID').Value); tguias.Filtered := true; while not tguias.eof do tguias.delete; tguias.Filtered := false; tnumguias.Filter := 'ID2=' + IntToStr(tclientes.FieldByName('ID').Value); tnumguias.Filtered := true; while not tnumguias.eof do tnumguias.delete; tnumguias.Filtered := false;


con este codigo intento borrar todas las tablas de las cuales esta enganchado la primera asi dejar limpio todo el registro de un cliente.. antes funcionaba ahora no se porque
gracias
prueba asi...

Código Delphi [-]
tfacturas.Filter := 'ID2=' + IntToStr(tnumfact.FieldByName('ID').AsInteger);
__________________
all your base are belong to us
Responder Con Cita