procedure TForm1.DBGrid1ColExit(Sender: TObject); var s:string; i:integer; begin s:=form1.DBGrid1.SelectedField.AsString; i:=form1.DBGrid1.SelectedIndex; form1.Table2.Open; with form1.Table2 do if locate('id',s,[]) then begin showmessage('这个值在table2中已经存在'); end; end;
var
s:string;
i:integer;
begin
s:=form1.DBGrid1.SelectedField.AsString;
i:=form1.DBGrid1.SelectedIndex;
form1.Table2.Open;
with form1.Table2 do
if locate('id',s,[]) then
begin
showmessage('这个值在table2中已经存在');
end;
end;