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.
El caso es que tengo para la grilla un clientdataset con un datasetprovider y un query.
Y para cada combo un datasource con su table correspondiente.
El clientdataset tiene los campos idcategoria y idsubcategoria de tipo data
Código Delphi
[-]procedure TForm1.DBLookupComboBox1Click(Sender: TObject);
begin
DBLookupComboBox1.DropDown;
with ClientModule1.Tsubprod do
begin
Filter:='idcategoria ='+IntToStr(DBLookupComboBox1.KeyValue);
Filtered:=True;
end;
with ClientModule1.cdsprod do
begin
Filter:='idcategoria ='+IntToStr(DBLookupComboBox1.KeyValue);
Filtered:=True;
DataSource.DataSet.Refresh;
end;
end;
procedure TForm1.DBLookupComboBox2Click(Sender: TObject);
begin
with ClientModule1.qproducto do
begin
Filter:='idsubcategoria = '+ IntToStr(DBLookupComboBox2.KeyValue);
Filtered:=True;
end;
end;
Pues el caso es que no funciona, no se que puede ser