为什么回车后没有结果显示!请高手赐教

Question

procedure TForm1.DBEditEh1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key=#13  then
   begin
      ADOTable1.Open;
      if ADOTable1.Locate('zyh',DBEditEh1.Text,[]) = True then
         DBNumberEditEh1.Value:= ADOTable1.FieldByName('je1').Value
      else
        //DBNumberEditEh1.SetFocus;
      DBNumberEditEh1.Value:=0   end;
end;
在ADOTable1的table表中有记录.而我输了相同的zyh值,为什么在DBNumberEditEh1.Value中没有结果显示.谢谢!

Answer 1

没人顶吗??我这样以下查又有结果..这是为什么?procedure TForm1.Button3Click(Sender: TObject);
begin
  ADOTable1.Open;
  if  ADOTable1.Locate('zyh',DBEditEh1.Text,[])=true then //loCaseInsensitive,loPartialKey
    DBNumberEditEh1.Value:= ADOTable1.FieldByName('je1').Value
  else
    DBNumberEditEh1.Value:=0;
end;

Answer 2

你的Form ,KeyPreView 要设为TRUE应该就行了，给分啦。