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 日 © 允许规范转载 赞 如果觉得我的文章对你有用，请随意赞赏