WinStudio

LinkedChildForms Property

Applies To

IWSForms interface

Definition

Returns a collection of child forms linked to a form.

Syntax

object.LinkedChildForms

Example

Sub Main()
   Dim Form As IWSForm
   Dim DoLink As Integer
   Dim LinkedChildIsUp As Boolean
   DoLink = CInt(GetParameter(0))
   LinkedChildIsUp = False
   Err.Clear
   For Each Form In ThisForm.LinkedChildForms.Values
      If Form.Name = "ShipTos" Then
         LinkedChildIsUp = True
         Exit For
      End If
      Form = Nothing
   Next
   If DoLink = 1 And Not LinkedChildIsUp Then
       ThisForm.GenerateEvent ("LinkToCustomerShipToMaintenance")
   ElseIf LinkedChildIsUp Then
       Form.Variables("CustSeqV").Value = ThisForm.Variables("CustSeqV").Value
       Form.GenerateEvent ("StdFormRefreshCompleted")
   End If
End Sub