这一直困扰着我,什么是执行以下操作的最佳方法......
使用简单的一对多数据库,当您在表单上有 2 个表/网格并且第二个被第一个过滤时。
放置过滤器代码的最佳位置在哪里,
即:
procedure TForm1.tblCustormersAfterScroll(DataSet: TDataSet);
begin
if tblCustormersCustormerID.AsString <> '' then
begin
tblCustormersThings.Filter := 'CustormerID = ' + tblCustormersCustormerID.AsString;
tblCustormersThings.Filtered := true;
end;
end;
AfterScroll 似乎大部分时间都在工作,但不会因某些事件而被解雇,例如发布后。通常我会有一个程序来更新过滤器并将它放在似乎需要的地方。
但我想知道是否有更好的方法,这似乎只是德尔福应该知道的东西......
我不认为这很重要,但我正在使用 Delphi7 和 NexusDB1