Hallo,
Ich habe jetzt folgenden Code erstellt. Da das Dataset ja ein TDataset ist, dachte ich ,daß ich einen Cast auf TADOTable machen könnte. Das klappt aber nicht.
Muß ich wirklich direkt über die
Unit auf die Tabelle zugreifen? Eigentlich möchte ich dem Formular die Tabelle übergeben und nicht Direkt drauf zugreifen.
Delphi-Quellcode:
procedure TfrmVerpackung.lcmbCustomerCloseUp(Sender: TObject);
var tblToFilter: TADOTable;
begin
tblToFilter := lcmbProduct.DataSource.DataSet AS TADOTable;
if lcmbCustomer.KeyValue <> 0 then
begin
tblToFilter.Filter := 'Where customer_id = '+ inttostr(lcmbCustomer.KeyValue) +'';
tblToFilter.Filtered := true;
end
else
tblToFilter.Filtered := false;
end;
THX
Alexander