procedure TForm1.Button1Click(Sender: TObject);
var
seekvalue,seekname:string;
begin
with table1 do
begin
IndexFieldNames:='sid';
seekvalue:=edit1.text;
if findkey([seekvalue]) then
begin
indexfieldnames:='sname';
seekname:=edit2.Text;
if findkey([seekname]) then
begin
showmessage('right');
label1.caption:=fieldbyname('sid').asstring;
label4.Caption:=fieldbyname('sname').asstring;
form2.Show;
end
else
begin
 label1.Caption:='无此学号';
 label4.Caption:='无此姓名';
showmessage('wrong');
end;
end;
end;
end;findkey不是同时可以查询多个字段吗?但是我改为以下的内容就出错了
IndexFieldNames:='sid';
indexfieldnames:='sname';
seekvalue:=edit1.text;
seeksname:=edit2.text;
if findkey([seekvalue,seeksname]) then  (这样为什么不可以啊)