Buenas tardes a todo el grupo, es algo muy sencillo (creo), de tan sencillo que no lo puedo realizar
, les platico, tengo un TRxDBLookupcombo relacionado a un DATASOURCE, este esta relacionado a un ADOQUERY, el contenido de este query es un listado de pedidos pendientes de surtir, el problema que tengo y no se si tenga solución
, es que deseo que el usuario al desplegar la bandera donde se ven los números de los pedidos pueda ir tecleando y se vaya filtrando el contenido del TRxDBLookupcombo como un 'LIKE'.....con lo que tengo hasta ahora no me deja escribir mas de 2 dígitos y no he podido hacer que se filtre, tienen alguna idea al respecto??, cualquier comentario mucho se los voy a agradecer.
Aquí algo del código que utilice pero que no me ha funcionado, la idea es que al estar escribiendo se vaya filtrando el combo, mi idea era utilizar el KeyPress del combo mas o menos así:
private
{ Private declarations }
vPedido: integer;
procedure TFormApartado.RxDBLookupComboKeyPress(
Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key:=#0;
end
else
begin
vPedido := RxDBLookupCombo.KeyValue;
FiltrarPedidos();
end;
end;
Y en FiltrarPedidos() la idea era activar los filtros para que el combo, en base al query Filtrado mostrara todos los que iniciaran con lo escrito:
procedure TFormApartado.FiltrarPedidos();
Begin
if RxDBLookupCombo.DisplayValue <> '' then
begin
ADOQueryPedidoFolios.Filter := 'To_Char(FOLIO) LIKE ' + inttostr(vPedido) + '%';
end
else
Begin
ADOQueryPedidoFolios.Filter := '';
end;
end;
Espero dar mi idea mas clara, y si tengo que ser mas explicito pues me dices por favor, espero me puedan ayudar, Gracias
Olvide comentar que LookupSource esta apuntando a un DataSource, el LookupField a Cliente, LookupDisplayIndex a Folio Pedido