问题标题：
英语翻译longistringls_dh,ls_flagdw_1.accepttext()fori=1todw_1.rowcount()ls_flag=dw_1.object.flag[i]ifls_flag='1'thenls_dh=dw_1.object.dh.dh[i]updategdzc_infosetshzt='1'wheredh=:ls_dh;ifsqlca.sqlcode=0thenelserollback;
问题描述：
英语翻译
longi
stringls_dh,ls_flag
dw_1.accepttext()
fori=1todw_1.rowcount()
ls_flag=dw_1.object.flag[i]
ifls_flag='1'then
ls_dh=dw_1.object.dh.dh[i]
updategdzc_info
setshzt='1'
wheredh=:ls_dh;
ifsqlca.sqlcode=0then
else
rollback;
messagebox('','审核错误!')
return
endif
endif
next
commit;
messagebox('','审核完毕!')
樊长在回答：
//定义变量
longi
stringls_dh,ls_flag
//dw_1数据窗口接受修改的数据
dw_1.accepttext()
//对dw_1从第一行开始做逐行的循环
fori=1todw_1.rowcount()
ls_flag=dw_1.object.flag[i]//取dw_1中flag字段的值
ifls_flag='1'then//如果flag字段值为'1'
ls_dh=dw_1.object.dh.dh[i]//取这一行dh字段的值（此处是不是代码拷贝错了?不可能出现dh.dh）
//更新表gdzc_info,把表中字段dh等于本行dh值的数据,设置shzt列='1'
updategdzc_info
setshzt='1'
wheredh=:ls_dh;
ifsqlca.sqlcode=0then//如果更新成功,不处理,sqlcode=0表示执行成功
else//如果更新失败
rollback;//取消更新rollback表示回滚事务,取消先前的数据库操作
messagebox('','审核错误!')//弹出提示框,提示审核错误
return//停止程序的执行,return后,程序不会再继续执行.
endif
endif
next
commit;//确认所有的更新,以上update语句循环执行,知道所有的执行成功,才会提交修改.
messagebox('','审核完毕!')//弹出对话框,提示审核完毕
查看更多
八字精批
八字合婚
八字起名
八字财运
2024运势
测终身运
姓名详批
结婚吉日
