帮我看下,我想保存的时候提示如果dm这列原先系统有了。怎么写程序呢
帮我看下,我想保存的时候提示如果dm这列原先系统有了。怎么写程序呢~~
[解决办法]
select count(1) into :li from t_表 where dm = :数据;if sqlca.sqlcode = 0 then if li > 0 then messagebox("","已经存在!") return end ifelse messagebox("","出错!") returnend if//尚不存在
[解决办法]
//insert 或update后不要commit
//执行判断是否有重复,有的话rollback
select count(*) into :i from 表 where dm=:dm group by dm having(count(*)>1);
if i>0 then
MessageBox("错误", "输入的数据已存在,不能重复!")
rollback;
RETURN
END IF