请问这段程序有何错误？(50分)

M

moutocean

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #1

table1.Edit;
for i:=0 to table1.RecordCount -1do
begin
table1.FieldByName('score').value:=99
table1.next;
end;
table1.post;

 

L

lsyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #2

table1.Edit;
Table1.First;
///here!!!
for i:=0 to table1.RecordCount -1do
begin
table1.FieldByName('score').value:=99
table1.next;
end;
//here!! Table1 has changed !do
NOT Post again!
or like this!
table1.Edit;
Table1.First;
while not Table1.EOFdo
begin
table1.FieldByName('score').value:=99
table1.next;
end;

 

S

Sachow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-06

• #3

在执行Table的Prior或Next过程时就会自动Post了，所以，你再次执行Post时就
会报错。

 

小

小猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-07

• #4

table1score.value:=99 ?

 

M

maming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-07

• #5

with Table1do
begin

First;

while not EOFdo

begin
Edit;
FieldByName('score').asfloat:=99;

post;
next;

end;
end;

 

M

mech

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-07

• #6

应改成这样，因为TABLE.NEXT以后，TABLE的状况自动改变dsbrowse
不再是dsedit.另外，99后加；
for i:=0 to table1.RecordCount -1do
begin
table1.Edit;
table1.FieldByName('score').value:=99;
table1.next;
end;
table1.post;

 

L

lodgue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-07

• #7

table1.Edit;
for i:=0 to table1.RecordCount -1do
begin
table1.FieldByName('score').value:=99
table1.next;
end;
table1.Edit;
table1.post;
保证不出问题.

 

S

soul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-07

• #8

first: record in edit then
post

 

尚

尚春明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-07

• #9

table1.active:=true;//或 table1.open;
table1.first;
for i:=0 to table1.RecordCount -1do
begin
table1.edit;
table1.FieldByName('score').value:=99;
table1.post;
table1.next;
end;
table1.active:=false;//或 table1.close;
这样最保险！

 

M

moutocean

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-04-12

• #10

多人接受答案了。