为什么不能修改表？(50分)

Y

youngyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #1

TABLElans.open;
TABLElans.Edit;
Lansnum:=Combobox1.ItemIndex+1;
FstLansnum:=Combobox2.ItemIndex+1;
if Lansnum=2 then
SedLansnum:=Combobox3.ItemIndex+1
else
SedLansnum:=0;

TABLElans.Locate('Prefername','FIRSTLANS',[]);
TABLElans.FieldByName('Preferdata').AsInteger:=FstLansnum;{执行到这一项出错}
TABLElans.post;

错误：'Tablelansateset not in edit or insert mode'
谢谢！

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #2

你判断一下，是否定位到了这条记录

 

I

ICDB

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #3

你要确定一下locate语句，确认一下它是否找到相应的记录。否则就会出错。
用个条件吧，如果成功则修改，不成功再作其它处理。

 

C

chur

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #4

TABLElans.Locate('Prefername','FIRSTLANS',[]);
if gotokey then
TABLElans.FieldByName('Preferdata').AsInteger:=FstLansnum;{执行到这一项出错}

 

B

bjgdczl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #5

只有选定某条记录才能进入编辑状态
mlzhou说的对，TABLElans.edit;要下移

 

H

hamsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #6

使用post要先用edit或insert，你使用了Locate后就不是edit了，
TABLElans.Locate('Prefername','FIRSTLANS',[]);

TABLElans.Edit;

TABLElans.FieldByName('Preferdata').AsInteger:=FstLansnum;{执行到这一项出错}
TABLElans.post;

 

Y

youngyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-12

• #7

多人接受答案了。