Ver Mensaje Individual
  #8  
Antiguo 16-02-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola davidmedina29
Cita:
Empezado por davidmedina29 Ver Mensaje
Hola ecfisa gracias por tu pronta respuesta

aplique el modo que me indicas en tu respuesta pero me sale este error

LIST INDEX OUT OF BOUNDS(1)

gracias!
Si, ahora veo que el índice que usas en tu código es 0, debí copiar/pegar en lugar de escribír, disculpas

Cita:
Empezado por davidmedina29 Ver Mensaje
...
Si puse los fields en 0 pero el problema es que no me pone el '1' en el edit.
Es que si el campo tiene el valor NULL (nada) nunca va a ponerte el valor '1' en el Edit, sino que va a dar un error cuando intentes convertirlo a string.

Y si usas la evaluación que te indiqué:
Código Delphi [-]
if not (Q_Auxi.IsEmpty or Q_Auxi.Fields.Fields[0].IsNull) then
se comprueba que la consulta no esté vacía Y que el campo no sea NULL. De ser así, asígna el valor al Edit, y de modo contrario no hace nada.

Podes modificar la última acción (hacer nada), por ejemplo:
Código Delphi [-]
  if not Q_Auxi.IsEmpty then
  begin
    if not Q_Auxi.Fields.Fields[0].IsNull then       
      cxTextEdit1.Text := Q_Auxi.Fields.Fields[0].Value
    else 
      cxTextEdit1.Text := 'Value is NULL'; // (o el texto que desees)
  end
  else
    cxTextEdit1.Text := 'No se encontraron resultados'

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita