Loading... * 可能是我这边现场的问题,但是找研发改铁定就是给一个bin.7z了,所以搞个脚本改一下 > Rpt_Commit.vbs脚本 ~~~vbnet CALL StudyTimeContrast() '放在最前面的Main里 或者放在提交流程里 Sub StudyTimeContrast() StudyStatus=Rpt.Data.GetNamedValue("studyStatus") studytime0=CStr(Rpt.Data.GetNamedValue("studytime0")) '取进入报告时的检查时间 Checkserialnum = Rpt.Data.GetNamedValue("CHECKSERIALNUM") sql5="select studytime from studyinfo WHERE CHECKSERIALNUM='"&Checkserialnum&"'" '查询最新检查时间 sql = "UPDATE STUDYINFO SET studytime=sysdate WHERE CHECKSERIALNUM='"&Checkserialnum&"'" Set Conn=Rpt.GetDBConn Set rs3 = Conn.Execute(sql5) '查询最新检查时间 newtime=CStr(rs3("studytime")) ' MsgBox "进入的时间:"+studytime0 ' MsgBox "提交的时间:"+ newtime ' MsgBox StudyStatus if newtime=studytime0 and StudyStatus<70 then Set rs4 = Conn.Execute(sql)'更新检查时间 ' MsgBox "已经更新" Else ' MsgBox "不必更新" exit sub end if End Sub ~~~ > Rpt_InitPropList.vbs (放在main里) ~~~vbnet studytime0=CStr(Rpt.Data.GetNamedValue("StudyTime")) ~~~ **原理:** 在Rpt_InitPropList.vbs脚本先获取检查时间,赋值给studytime0,然后在提交报告的时候,查询最新的检查时间,如果查询出来的时间和studytime0一样,则把当前时间更新到studytime。如果不一致,那就是正常采图的,采图时就更新了检查时间,所以不做任何操作 最后修改:2024 年 04 月 16 日 © 允许规范转载 赞 如果觉得我的文章对你有用,请随意赞赏