Filtro en dbgrid

[[Caral]]

Hola
Hay que tener en cuenta que es cada cosa.
1- El dbgrid tiene celdas, en ellas se puede colocar un boton, un combobox o nada.
2- Cada celda se puede manejar como se necesite.
3- Si se quiere, por ejemplo, llenar el combobox que tiene el dbgrid entonces se utiliza la propiedad PickList (efectivamente).
4- Para llenar ese combobox con la informacion de una tabla entonces se puede, por ejemplo, hacer esto:

Código Delphi [-]
   AdoQuery1.SQL.Text := 'Select Nombre From Usuarios '; // selecciono el nombre de la tabla usuarios
   AdoQuery1.Active := True; // activo el sql
   While not AdoQuery1.Eof do  // recorro la tabla hasta el final
   begin
     DBGrid1.Columns[0].PickList.add(AdoQuery1.Fields[0].Text); // INSERTO EN EL PICKLISI DEL DBGRID LOS DATOS
     AdoQuery1.Next; // sigo insertando hasta que encuentre el ultimo
   end;
   AdoQuery1.Active := False;  // cierro la consulta

Osea: Muy facil, no?.
Saludos

[gianfranco_tont]

excelente esa es la mejor opcion, de verdad gracias.

[gianfranco_tont]

pero ahora tengo una duda: donde coloco esta funcion? onshow, oncellclick? en donde.

[[Caral]]

Hola
No es una funcion.
Colócalo en el evento ONShow del form que contiene el dbgrid.
Saludos

[gianfranco_tont]

perfecto pero donde llamo el picklist?

[[Caral]]

Hola
No entiendo ?.
A ver si es lo que imagino:
El picklist esta en el campo que tiene el dbgrid.
Si le das dobleclick al dbgrid te sale una pantalla, ahi deben estar los campos que tendra el dbgrid.
Escoge el campo que necesites que tenga el combobox y pon en su propiedad Buttonstile cbsAuto.
No se si es lo que preguntas ?.
Saludos

[gianfranco_tont]

ya lo logre gracias a tu ayuda.
pero fijate:

Código Delphi [-]
AdoQuerytipo.SQL.Text := 'Select co_tipo,des_tipo From tipo_aju '; // selecciono el nombre de la tabla usuarios
   AdoQuerytipo.Active := True; // activo el sql
   While not AdoQuerytipo.Eof do  // recorro la tabla hasta el final
   begin
     DBGrid1.Columns[1].PickList.add(AdoQuerytipo.Fields[0].Text); // INSERTO EN EL PICKLISI DEL DBGRID LOS DATOS
     AdoQuerytipo.Next; // sigo insertando hasta que encuentre el ultimo
   end;
    AdoQuerytipo.Active := False;  // cierro la consulta
    if ClientDataSet1.State in [dsEdit, dsInsert] then
    end;

dentro de PickList me muestra solo la columna codigo, pero para el usuario el codigo no le dice nada, quisiera que el usuario seleciones por des_tipo pero en el grid se guarde co_tipo.

Sera posible hacer eso o estoy totalemente fuera de lugar?

[[Caral]]

Hola
Por código, en el evento OnShow del form:
Digamos que quieres que la primera columna del dbgrid contenga el combobox y te traiga los datos:

Código Delphi [-]
   DBGrid1.Columns[0].ButtonStyle:= cbsAuto; // boton para combobox en dbgrid
   AdoQuery1.SQL.Text := 'Select Nombre From Usuarios '; // selecciono el nombre de la tabla usuarios
   AdoQuery1.Active := True; // activo el sql
   While not AdoQuery1.Eof do  // recorro la tabla hasta el final
   begin
     DBGrid1.Columns[0].PickList.add(AdoQuery1.Fields[0].Text); // INSERTO EN EL PICKLISI DEL DBGRID LOS DATOS
     AdoQuery1.Next; // sigo insertando hasta que encuentre el ultimo
   end;
   AdoQuery1.Active := False;  // cierro la consulta

Como ves:
1- Se le asigna el boton del combobox al dbgrid.
2- Se hace la consulta a la tabla.
3- Se recorre
4- Se le inserta en la propiedad PICKLIST del dbgrid los datos de la tabla.
5- Se cierra.
Saludos