Hola davidmedina29
Cita:
Empezado por davidmedina29
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
...
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'; end
else
cxTextEdit1.Text := 'No se encontraron resultados'
Saludos