EnumMembersInList

使用 EnumMembersInList 子例程将成员添加到列表。对于静态成员列表，在脚本中列出列表的所有成员。在 EnumMembersInList () 子例程中，使用下表中的语法和函数定义每个成员列表中的成员：

对于实体之外的所有维，将使用 HS.AddMemberTo List 语句，必须在该语句中指定成员。对于实体维，将使用 HS.AddEntityToList 语句，必须在该语句中指定成员及其父代。

表 5-1 EnumMembersInList 语法

语法	说明
HS.Dimension = "Element"	其中，Element 是维。例如： If HS.Dimension = "Entity" Then
HS.MemberListID=n	按其数字 ID 指定成员列表其中 n = EnumMemberLists 子例程中分配给成员列表的数字 ID HS.MemberListID = 1
HS.AddEntityToList Member HS.AddMemberToList Member	为实体之外的维添加列表成员其中，Member 是成员名称 HS.AddEntityToList "UnitedStates,""Maine" HS.AddMemberToList "July"
HS.AddEntityToList Parent, Member	向实体维的列表添加成员其中，Parent 是添加的成员的父代，Member 是实体维的成员。 HS.AddEntityToList "UnitedStates", "California"
HS.Entity.List	向实体维的列表添加成员 HS.Entity.List("""[Base])"
HS.MemberListEntity HS.MemberListScenario HS.MemberListYear HS.MemberListPeriod	用于指定动态成员列表。

以下节是文件的 EnumMembersInList 节的一个示例。在本示例中，定义了三个实体列表的实体。还定义了帐户列表的成员。

Sub EnumMembersInList()

If HS.Dimension = "Entity" Then

   If HS.MemberListID = 1 Then

      HS.AddEntityToList "United States", "Massachusetts"

      HS.AddEntityToList "United States", "Rhode Island"

      HS.AddEntityToList "United States", "Maine"

   ElseIf HS.MemberListID = 2 Then

      HS.AddEntityToList ,"United States" "Connecticut"

   ElseIf HS.MemberListID = 3 Then

      HS.AddEntityToList "United States", "California"

   End If

ElseIf HS.Dimension = "Account" Then

   If HS.MemberListID = 1 Then

      HS.AddMemberToList "Sales"

      HS.AddMemberToList "Purchases"

      HS.AddMemberToList "Salaries"

      HS.AddMemberToList "OtherCosts"

      HS.AddMemberToList "TotalCosts"

      HS.AddMemberToList "GrossMargin"

      HS.AddMemberToList "HeadCount"

      HS.AddMemberToList "AdminExpenses"

      HS.AddMemberToList "InterestCharges"

      HS.AddMemberToList "NetIncome"

      HS.AddMemberToList "Taxes"

      HS.AddMemberToList "NetProfit"

   End If

End If

End Sub

注：

您可以根据需要，为每个维创建任意多个成员列表，而且不需要为所有维创建成员列表。