Hola giulichajari.
Cita:
|
Tengo un catalogo de productos que se muestra en forma de grilla obviamente, y deseo seleccionar en un DBLookupcombobox la categoria, entonces se filtra otro dblookupcombobox que es de subcategoria, y a la vez la grilla. Y al seleccionar una subcategoria se vuelve a filtrar la grilla, ademas tiene un edit para filtrar por nombre del producto los resgistros resultantes.
|
A ver... Tenes dos datasets, un query, un ClientDataSet, dos DBLookupComboBox y un Edit y el problema se te presenta en el armado de la consulta vinculada al ClientDataSet.
De lo que leí y pude entender, creo que podrías hacer:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
DBLookupComboBox1.KeyValue := DataSet1.FieldByName( 'KEY_FIELD_1' ).Value;
DBLookupComboBox2.KeyValue := DataSet2.FieldByName( 'KEY_FIELD_2' ).Value;
end;
procedure TForm1.btnFiltrarQueryClick(Sender: TObject);
var
s: string;
begin
with tu_Query do
begin
Close;
SQL.Clear;
SQL.Add( 'SELECT *'); SQL.Add('FROM TABLA1 T1, TABLA2 T2' );
s := Format( 'WHERE T1.KEY_FIELD_1 = %s AND ', [QuotedStr( DBLookupComboBox1.KeyValue ) ] );
s := s + Format( ' T2.KEY_FIELD_2 = %s ', [QuotedStr( DBLookupComboBox2.KeyValue ) ] );
if Edit1.Text <> EmptyStr then
s := s + 'AND T2.OTRO_CAMPO = ' + QuotedStr( Edit1.Text );
SQL.Add( s );
Open;
end;
ClientDataSet1.Refresh; end;
(1) KEY_FIELD_1 y KEY_FIELD_2 serán los nombres de campo que asignaste respectivamente a la propiedad
KeyField de los combos y OTRO_CAMPO el campo por el que filtra el Edit.
(2) O mejor aún, la enumeración de los campos que desees seleccionar.
Como no has comentado si existe algún tipo de relación entre las tablas que pudiera acotar la consulta, el conjunto de datos que podría traer es muy grande...
Saludos
Consejo: Tomate el tiempo para publicar toda la información posible y las respuestas serán mas rápidas y precisas.
