05-18-2005 06:57 AM
05-18-2005 07:24 AM
For iObjNo = 1 To ObjectNoMax 'Loop over all objects in DIAdem REPORT
sObjectName = ReportObj(iObjNo) 'Gets the object name
If sObjectName <> "" Then 'Be sure that object is not deleted
Select Case ReportObjType(iObjNo) 'Gets object type
Case "2D-Table"
ReportObj(iObjNo)="" 'Sets the Name to empty string
Case Else
'Do something else
End Select
End If
Next
Call PicUpdate()
For intObj=1 to ReportObjLast
Call GraphObjChnClear(ReportObj(intObj))
Next