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

[yandyzg]

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中没有结果显示.谢谢!

[yandyzg]

没人顶吗??我这样以下查又有结果..这是为什么?

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;

[mygodsos]

DBNumberEditEh1.refresh 一下

[genispan]

[Quote=引用 2 楼 mygodsos 的回复:]
DBNumberEditEh1.refresh 一下
[/Quote]
支持

[xiaxia421]

解决了吧，飘过！

[fangsp]

[Quote=引用 2 楼 mygodsos 的回复:]
DBNumberEditEh1.refresh 一下
[/Quote]
应该是这样子的

[eqapple]

接分!

[DumDum]

我也来接点分

[FJ_CSR]

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