英语翻译long istring ls

网友回答

//定义变量
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_info
set shzt = '1'
where dh = :ls_dh ;
if sqlca.sqlcode = 0 then
//如果更新成功,不处理,sqlcode = 0表示执行成功else //如果更新失败
rollback;
//取消更新rollback表示回滚事务,取消先前的数据库操作messagebox('','审核错误!')
//弹出提示框,提示审核错误return
//停止程序的执行,return后,程序不会再继续执行.end ifend ifnextmit ;
//确认所有的更新,以上update语句循环执行,知道所有的执行成功,才会提交修改.messagebox('','审核完毕!')
//弹出对话框,提示审核完毕