帮小弟我看下，小弟我想保存的时候提示如果dm这列原先系统有了。如何写程序呢

select count(1) into :li from t_表 where dm = :数据;
if sqlca.sqlcode = 0 then
    if li > 0 then
        messagebox("","已经存在！")
        return
    end if
else
    messagebox("","出错！")
    return
end 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