你在作报表的时候用的是什么控件呀
crystal report控件的话,给你一段可能有联系的代码吧
private sub data1_VALIDATE(Action as integer,save as integer)
dim msg
select case action
case 1,2,3,4,5,11
if save then
msg=msgbox("data update?",vbyesno)
if msg=vbno then
save=0
end if
end if
tbr.buttons("delete").enabled=true
end case
end sub