Sub Finish( )
Dim Finish_Time as Double
Dim Elapsed_Time as Double
Dim Duration as String
Super::Finish( )
Finish_time = Now( )
Elapsed_Time = Finish_Time - Start_Time
Elapsed_Time = Elapsed_Time * (24 * 3600)
Elapsed_Time = CInt(Elapsed_Time)
Duration = CStr(Elapsed_Time)
ShowFactoryStatus("花费时间(秒):"+ Duration)
End Sub
在服务器以后台作业方式运行,查看其状态即可看到花费时间
9、如何在后台打印报表运行的SQL?
重写DataSource的ObtainSelectStatement函数如下:
Function ObtainSelectStatement( ) As String
ObtainSelectStatement = Super::ObtainSelectStatement( )
showfactorystatus(obtainSelectstatement)
End Function
服务器以后台作业方式运行,查看其状态即可看到该报表运行的SQL