[JcTaztoman]

Hola Buenos dias, espero que alguno de uds me pueda ayudar con la consulta que tengo, he buscado pero no encuentro nada parecido.

bueno mi cuestion es esta:

Tengo un Nextgrid con varios campos, uno de ellos es un NextCombobox,
lleno los datos del Nextcombobox a travez de una consulta sql a postgres. todo se hace bien, ahora lo que necesito es como indicar el valor que tiene ese elemento desde la consulta de la BD.

el codigo es este:

Código Delphi [-]
procedure TForm1.CBLocalidadChange(Sender: TObject);
var topico:string;
begin topico:=CBLocalidad.Text; edit1.Text:=topico; with zquery1 do begin   if active then Close;
    sql.Clear;
    sql.Add('Select substr(p.serie,8,6),p.activa,p.serie,p.nombre,r.localidad,r.nombre_ruta from posiciones p, rutas r');
    sql.Add('where r.localidad='+QuotedStr(CBLocalidad.text));
    sql.add('and p.id_ruta=r.id and p.activa =1');
    sql.add('group by localidad,nombre_ruta,nombre,serie,activa');
    open;
    ngrutas.ClearRows;
    while not eof do       begin          NGRutas.InsertRow(recno-1);          NGRutas.cells[0,recno-1]:=zquery1.FieldValues['substr'];
         NGRutas.cells[1,recno-1]:=zquery1.FieldValues['nombre_ruta'];
         NGRutas.cells[2,recno-1]:=zquery1.FieldValues['nombre'];
         NGRutas.cells[3,recno-1]:=zquery1.FieldValues['activa'];
         Ncbruta.Items.Add(zquery1.FieldValues['nombre_ruta']);
         next;
      end;
      if active then Close;
        sql.Clear;
        SQL.Add('Select r.nombre_ruta from rutas r,posiciones p ');
        sql.add('where r.localidad='+QuotedStr(CBLocalidad.text));
        sql.Add('and p.activa =1 and p.id_ruta=r.id group by nombre_ruta');
        Open;
       NCBRuta.Items.Clear;
            If Not IsEmpty Then             Begin               While Not Eof Do begin               NCBRuta.Items.Add(zquery1.FieldValues['nombre_ruta']);
              Next;
             End;
          close;
          sql.clear;

         End;
end;
end;

espero alguien pueda ayudarme