帮小弟我看下，小弟我想保存的时候提示如果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