请教各位大鲨，小鱼有个简单的问题(100分)

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #1

if datamodule2.adotable1.delete then
showmessage('确信要删除该条记录吗')
当我执行该条语句时，说我datamodule2.adotable1.delete 语句不是boolean,不知那位
大鲨可以帮我，小鱼不胜感激

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #2

各位大鲨怎不帮帮我，小鱼快俄死了

 

V

vmao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #3

if messagedlg('确信要删除该条记录吗?',mtinformation,[mbyes,mbno],0)=mryes
then
datamodule2.adotable1.delete
你先删除了，再问别人要不要删除有什么意思？

 

M

mckz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #4

datamodule2.adotable1.delete 不是 boolean , 不能 if.. then

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #5

非常感谢大鲨vmao！

 

Y

yueer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #6

同意vmao的
if messagedlg('确信要删除该条记录吗?',mtInformation,[mbyes,mbno],0)=mryes
then
datamodule2.adotable1.delete
不过，我喜欢把mtInformation改为mtConfirmation，可以显示一个问号

 

C

cjh_xf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #7

datamodule2.adotable1.delete不是boolean所以，不可以作为if的判断句，可以用增加一个Button按钮来解决:
procedure TForm1.DelButtonClick(Sender:Tobject);
begin
if MessageDlg('确信要删除该条记录吗?',mtConfirmation,[mbOk,mbNO],0)=mrOk then
DataModule2.AdoTable1.Delete;
end;

 

N

nansha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-10

• #8

谢谢yueer，你的意见我采纳了！