//其他的项目没有问题，就单独这一个 出现这毛病。
//这个是继承的会不会有关系
///这调用存储过程的函数
string iscz
declare cur_pro procedure for User_One_djs @djbh=:djbh,@username=:username,@old_djbh=:olddjbh,@dbname=:gs_dbname
using sqlca;//调用存储过程
execute cur_pro; ///执行
fetch cur_pro into :iscz; ////取得存储过程返回值
close cur_pro; ///关闭
return iscz
//返回空则表示可以修改，如果返回不是空 返回内容是正在修改的用户
//这是调用函数的代码
string xgyh
//xgdjbh=dw_1.Object.ghdbh[1]
//messagebox("","")
xgyh=f_one_user_djs(xgdjbh,gs_username,'')
//messagebox("",xgyh)
if xgyh<>'' then
messagebox("提示","["+xgdjbh+"]该单据正在被用户["+xgyh+"]修改!")
return
end if

declare cur_pro procedure for User_One_djs @djbh=:djbh,@username=:username,@old_djbh=:olddjbh,@dbname=:gs_dbname
using sqlca;//调用存储过程
execute cur_pro; ///执行
fetch cur_pro into :iscz; ////取得存储过程返回值
close cur_pro; ///关闭
请将上面的运行方式抛弃，用datawindow代替