Framework EDI Reference. Methods and Properties
ediDataElements. Count

Returns the number of elements in the collection.

Syntax:

Example


Dim oComposite As Fredi.ediDataElement
Dim oAllElements As Fredi.ediDataElements
Dim oDataSegment As Fredi.ediDataSegment

....

' Get first data segment in document.
Set oDataSegment = oEdiDoc.FirstDataSegment

' Get the composite element.
Set oComposite = oDataSegment.GetDataElementByPos("\ISA\GS\ST\PO1\SLN\SLN<C001>")

' Get the object containing the collection of sub elements.
Set oAllElements = oComposite.DataElements

MsgBox "Numer of elements in the collection = " & oAllElements.Count

Sample

P_Count.zip