Lookup en Dbgrid

[[Caral]]

Hola
La verdad no entiendo muy bien lo que quieres hacer, a lo que entiendo, se podria hacer con un edit, un filtro o sql, no se de varias maneras.
Saludos

[Moparova]

Lo que trato de hacer es lo siguiente.
En mi tabla almaceno la información de capacitación de los empleados.

Los campos son los siguientes:

Id_Emp ( es el campo lookup relacionado a la tabla de empleados)
Curso
calificación

Mi problema es en el id_emp, que solo me permite seleccionarlo del cuadro de lsita que aparece, pero son más de 5000 empleados, lo que yo quisiera hacer es poder escribirlo directamente o buscarlo, cualquiera de las 2 formas

no se si me explique bien

Gracias

[[Caral]]

Hola
Sigo sin entender y saber que base de datos usas y con que componentes la enlazas, pero para que te des una idea con un filtro, seria algo asi:
Colocas un edit, en donde vas a poner el nombre o codigo, colocas un table, en mi caso uso adotable, y haces el filtro en el evento OnChange.
Código Delphi [-]var Filtro : String; begin If (Edit1.Text <> '') then begin ADOTable1.Filtered := False; Filtro := 'Id_Emp Like '+Edit1.Text ADOTable1.Filter := Filtro; ADOTable1.Filtered := True end else ADOTable1.Filtered := False; end;


Tambien se puede hacer con una sentencia sql, pero para eso necesito mas datos.
Saludos

[[Caral]]

Hola
Sigo sin entender y saber que base de datos usas y con que componentes la enlazas, pero para que te des una idea con un filtro, seria algo asi:
Colocas un edit, en donde vas a poner el nombre o codigo, colocas un table, en mi caso uso adotable, y haces el filtro en el evento OnChange.

Código Delphi [-]
var Filtro : String;
begin
If (Edit1.Text <> '') then
begin ADOTable1.Filtered := False; Filtro := 'Id_Emp Like '+Edit1.Text ADOTable1.Filter := Filtro; ADOTable1.Filtered := True end else ADOTable1.Filtered := False; end;

Tambien se puede hacer con una sentencia sql, pero para eso necesito mas datos.
Saludos

[[Caral]]

Hola
Perdon pero no me sale el codigo legible en esto, lo intento de nuevo:

Código Delphi [-]
var Filtro : String;
begin
If (Edit1.Text <> '') then
begin
ADOTable1.Filtered := False;
Filtro := 'Id_Emp Like '+Edit1.Text;
ADOTable1.Filter := Filtro; 
ADOTable1.Filtered := True
end
else
ADOTable1.Filtered := False;
end;

[Moparova]

Gracias Román, pero lo haga para validar que exista el empleado dentro de la tabla de empleados.

Gracias Caral, pero lo hago directamente en el dbgrid.

[roman]

Lo que yo no entiendo es por qué un campo lookup. Da toda la impresión de que Id_Emp es un campo de la tabla de capacitación- la llave foránea que enlaza con la tabla de empleados, de manera que no hay necesidad de un campo de búsqueda. Se pone el campo tal cual, y se escribe el id del empleado.

// Saludos