其实我也为此问题困扰很久,后来终于想到一个办法。也只是想暂时用用此法,于是发布出来,相信朋友们有更好的方法,
1
procedure
test;
2 begin
3 if (Key = 40 ) or (Key = VK_TAB) then
4 begin
5 if adoquery1.Eof then
6 begin
7 Key : = 0 ;
8 end ;
9 end ;
10 end ;
2 begin
3 if (Key = 40 ) or (Key = VK_TAB) then
4 begin
5 if adoquery1.Eof then
6 begin
7 Key : = 0 ;
8 end ;
9 end ;
10 end ;
希望能够指点一二。其实很简单,关键在于想到没。
朋友们还有其它方法的,希望留言一起讨论。