永发信息网

英语翻译long istring ls

答案:2  悬赏:10  手机版
解决时间 2021-02-06 16:35
  • 提问者网友:箛茗
  • 2021-02-06 11:58
英语翻译long istring ls
最佳答案
  • 五星知识达人网友:枭雄戏美人
  • 2021-02-06 12:36
//定义变量long i string ls_dh,ls_flag//dw_1数据窗口接受修改的数据dw_1.accepttext( )//对dw_1从第一行开始做逐行的循环for i = 1 to dw_1.rowcount( )ls_flag = dw_1.object.flag[i] //取dw_1中flag字段的值if ls_flag = '1' then //如果flag字段值为'1'ls_dh = dw_1.object.dh.dh[i] //取这一行dh字段的值(此处是不是代码拷贝错了?不可能出现dh.dh)//更新表gdzc_info,把表中字段dh等于本行dh值的数据,设置shzt列 = '1'update gdzc_infoset shzt = '1'where dh = :ls_dh ;if sqlca.sqlcode = 0 then//如果更新成功,不处理,sqlcode = 0表示执行成功else //如果更新失败rollback; //取消更新rollback表示回滚事务,取消先前的数据库操作messagebox('','审核错误!') //弹出提示框,提示审核错误return //停止程序的执行,return后,程序不会再继续执行.end ifend ifnextcommit ; //确认所有的更新,以上update语句循环执行,知道所有的执行成功,才会提交修改.messagebox('','审核完毕!') //弹出对话框,提示审核完毕
全部回答
  • 1楼网友:神也偏爱
  • 2021-02-06 14:00
回答的不错
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯