2012-11-26 1 views

Répondre

1

trouvé la réponse moi-même:

'Consider m_td_connection = TD_connection 

Dim iGlobalListCounter, iListCounter, ValuesStr, ProductListName 
ProductListName = "Status" 
For iGlobalListCounter = 1 to m_td_connection.Customization.Lists.Count 
    If m_td_connection.Customization.Lists.ListByCount(iGlobalListCounter).RootNode.Name = ProductListName Then 
     ValuesStr = m_td_connection.Customization.Lists.ListByCount(iGlobalListCounter).RootNode.Children.Item(1).Name ‘starting ValuesArr with the first value 
     For iListCounter = 2 to m_td_connection.Customization.Lists.ListByCount(iGlobalListCounter).RootNode.ChildrenCount 
      ValuesStr = ValuesStr & "," & m_td_connection.Customization.Lists.ListByCount(iGlobalListCounter).RootNode.Children.Item(iListCounter).Name 
     Next 
    End If 
Next 
Msgbox ProductListName & " list values = " & vbCrlf & ValuesStr 
Questions connexes