3

感谢那些在这里帮助过我的人，我正在开发一个小型应用程序，该应用程序几乎完成了。不过，我还有最后一项任务。我需要能够在 NestedDataSet 字段上过滤 TClientDataSet。

ClientDataset1
Field0: Name (Lake Name)
ClientDataset2
Field0: Species (Fish Species)

type
  TDataModule1 = class( TDataModule )
    ClientDataSet1: TClientDataSet;
    ClientDataSet2: TClientDataSet;
    ClientDataSet1Name: TStringField;
    ClientDataSet1County: TStringField;
    ClientDataSet1Town: TStringField;
    ClientDataSet1Area: TStringField;
    ClientDataSet1MaximumDepth: TStringField;
    ClientDataSet1MeanDepth: TStringField;
    ClientDataSet1MapFilename: TStringField;
    ClientDataSet1Species: TDataSetField;
    ClientDataSet2Species: TStringField;
    procedure DataModuleDestroy( Sender: TObject );
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Data:
Nate Pond
    Brook trout
    Creek chub
    Golden shiner
Black Pond
    Brook trout
    Brown bullhead
    Common shiner
Lake Placid
    Lake trout
    Smallmouth bass
    Yellow perch

我需要过滤 ClientDataset1 以在 ClientDataset Species 字段中显示所有有 Brook trout 的湖泊。

Filtered:
Nate Pond
    Brook trout
    Creek chub
    Golden shiner
Black Pond
    Brook trout
    Brown bullhead
    Common shiner

如何创建过滤器（或其他方式）来完成此任务？是否有任何第三方组件可以做到这一点？

谢谢，

账单

4

1 回答 1

2

尝试将 OnFilterRecord 处理程序添加到主数据集，并在处理程序内的嵌套数据集上使用定位来查看记录是否存在。

于 2009-01-21T20:43:04.383 回答