WinStudio
IWSIDOCollection interface
Sets the current object property in the specified IDO collection to "modified".
object.SetCurrentObjectPropertyModified( string, Boolean )
Part |
Description |
object | Required. A reference to a valid IDO collection object. |
string | Required. The name of the object property. |
Boolean | Required. Determines whether the object is marked
as "modified":
|
Sub Main() Dim ColCache As IWSIDOCollection Dim RevisedQtyDue As Double Dim QtyPerAssembly As Double Dim RemainingQtyDue As Double ColCache = ThisForm.PrimaryIDOCollection RemainingQtyDue = CDbl(ColCache.GetCurrentObjectProperty("RemainingQtyDue")) QtyPerAssembly = CDbl(ColCache.GetCurrentObjectProperty("QtyPerAssembly")) If QtyPerAssembly > 0.0 And RemainingQtyDue > 0.0 Then RevisedQtyDue = QtyPerAssembly * RemainingQtyDue ColCache.SetCurrentObjectProperty("RevisedQtyDue", RevisedQtyDue.ToString) ColCache.SetCurrentObjectPropertyModified("RevisedQtyDue", True) ColCache.NotifyDependentsToRefresh("RevisedQtyDue") ThisForm.Components("RevisedQtyDueSubGridCol").Text = RevisedQtyDue.ToString End If End Sub