function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions ): Boolean; override; with Table1 do begin SetKey; FieldByName('State').AsString := 'CA'; FieldByName('City').AsString := 'Santa'; GotoNearest; end; 如果我double click listbox 中的选项，之后与其对应的选项在TCustomClientDataSet自动被选出来，或者说cursor自动去到相应的TCustomClientDataSet 选项 请问如果用以上公式可不可以？要如可使用？可否请各位大大举个例子？因为我试过好像是不行的，严格来说只有第一此double click 是可以做到，但是之后无论怎么double click 也不行啦！ thanx so much！

引言:

function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions
): Boolean; override;    with Table1 do
begin
  SetKey;//调用SetKey方法把表对应的TTable部件置成查找状态
  FieldByName('ID').AsString :=ListBox1.Items[ListBox1.ItemIndex];//指定查找值,ID为关键字
  GotoNearest;//进行模糊查找
end;
以上查找是将cursor自动去到相应的TCustomClientDataSet 选项
note:
要查找的字段须是关键字段或辅助索引字段,如果在表中存在多个关键字段或辅助索引中包含多个字段时，在进行查找时只想为第一个字段指定查找值，那么必须要设置TTable部件的KeyFieldCount的属性值为1，如果想为多个字段指定查找值，只能为相邻的字段指定查找值。    

如果我double click listbox 中的选项，之后与其对应的选项在TCustomClientDataSet自动被选出来，或者说cursor自动去到相应的TCustomClientDataSet 选项 请问如果用以上公式可不可以？要如可使用？可否请各位大大举个例子？因为我试过好像是不行的，严格来说只有第一此double click 是可以做到，但是之后无论怎么double click 也不行啦！ thanx so much！

您好： 您可以参考以下： http://delphi.ktop.com.tw/topic.php?topic_id=27894 补充一下： 至于要与其对应的选项在TTable自动被选出来.可以用filter或直接下SQL语句，站内有很多的资料，请自行查找 <>~~~静心养德~~~ 發表人 -