dim fi As row = Tables("表A").Current
if fi isnot nothing
fi("已完成") =False then
e.cancel = true
Forms(修改_故障维修情况").Open()
else
MessageBox.Show("已确认完成,无法修改!","提示")
endif
end if
加好友 
发短信
Post By：2017/11/3 16:23:00 [显示全部帖子]
