你的错误信息是不是“Table1:No index for fields'YHID'”?
如果是的话, 检查一下关键字。可以参照下面的代码调试:
//1 可不设置,但在后面的操作中必须保证是查找 关键字
table1.IndexFieldNames :='YHID';
//2 通过调用GotoKey方法,把要查找的TTable部件置成查找模式
table1.SetKey ;
//3 把查找值送进被查找的Field的查找缓冲区
table1.FieldByName('YHID').AsString :=trim(edit1.text);
//4
table1.GotoNearest ;