WinStudio
IWSIDOCollection interface
Returns a Boolean value indicating whether the current object in the specified IDO collection is in an error state.
object.IsCurrentObjectInvalid( )
Part |
Description |
object | Required. The name of a valid IDO collection object. |
A return value of:
If the specified IDO collection has focus, use this method. If the specified IDO collection might not have focus, use the IsObjectInvalid method.
Sub Main() Dim SubColCache As IWSIDOCollection Dim bValue As Boolean SubColCache = ThisForm.Components(GetParameter(0)).IDOCollection bValue = SubColCache.IsCurrentObjectInvalid() ' If the current object is in an error state, test to see if it has been modified. If bValue Then ' If the current object has been modified, mark the current object as unmodified. If SubColCache.IsCurrentObjectModified() Then SubColCache.SetCurrentObjectModified(FALSE) End If End If End Sub