判断到达最后一条记录时按钮为不可用，怎么办？(20)

极

极品铁观音

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #1

下面这段程序不能达到效果，要多按两下才会变为不可用，记录是插入临时表的没有空记录，怎么办？是不是程序错了？with adoquery1 dobeginif not eof then Nextelse BitBtn5.Enabled :=false ;end;

 

O

onyliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #2

with adoquery1 dobeginif (not eof) or (not bof) then Nextelse BitBtn5.Enabled :=false ;end; 这样试下

 

极

极品铁观音

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #3

不行，我要的是当记录到达最后一条时“下一条”的按钮设为不可用，但我试了几个办法都是要多按一次才能变成不可用。这本来是个简单问题。

 

Z

zhengrong117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #4

with adoquery1 dobeginif not eof then Next;//elseif eof then BitBtn5.Enabled :=false ;end; //用你的修改了下

 

极

极品铁观音

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #5

也还是要再按一次才变成不可用

 

Z

zhengrong117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #6

那你就看下adoquery1的RecordCount到底是多少条把你改后的代码贴上来

 

S

szhcracker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #7

改为 BitBtn5.Enabled := not Eof 试试。

 

极

极品铁观音

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #8

DBNavigator1的last和first效果

 

N

Notouch

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #9

with adoquery1 dobeginif not eof then Next;end; if eof then BitBtn5.Enabled :=false ;

 

W

WUSUBAR

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-29

• #10

with adoquery1 dobeginif not eof thenbegin Next; if eof then BitBtn5.Enabled :=false; end;

 

J

jennykiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-30

• #11

没太注意这个，看了TDBNavigator代码才发现其实他的按钮也是有这个问题的，到了最后一条再点Next按钮才会变灰。procedure TDBNavigator.DataChanged;var UpEnable, DnEnable: Boolean;begin UpEnable := Enabled and FDataLink.Active and not FDataLink.DataSet.BOF; DnEnable := Enabled and FDataLink.Active and not FDataLink.DataSet.EOF; Buttons[nbFirst].Enabled := UpEnable; Buttons[nbPrior].Enabled := UpEnable; Buttons[nbNext].Enabled := DnEnable; Buttons[nbLast].Enabled := DnEnable; Buttons[nbDelete].Enabled := Enabled and FDataLink.Active and FDataLink.DataSet.CanModify and not (FDataLink.DataSet.BOF and FDataLink.DataSet.EOF);end;

 

极

极品铁观音

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2010-06-30

• #12

对啊也只能这样了，非常感谢大家的捧场。分不多把它分了。我是在别人的PB应用程序上看到每到表的最后一条记录，“下一组”的按钮马上变灰色。唉，留点程序小瑕疵吧。再次感谢。