Comment utiliser Lotusscript Lists pour stocker le nombre de formulaires dans une collection?

Question

J'ai une collection de documents avec des formes différentes et besoin de stocker le nombre de formulaires dans une liste, le listtag serait le nom du formulaire et la valeur combien d'occurrences de ce formulaire se trouvaient dans la collection, comme ceci:

Main Form = 20

Form Doc = 10

le code suivant est un début de ce que je suis en train de faire, mais je dois augmenter la valeur de l'élément à chaque fois qu'un nouveau document avec un formulaire existant se dérouler

Dim frmList List As integer 
Set ud = newdc.Getfirstdocument() 
Do Until ud Is Nothing 
      frm = ud.Form(0) 
      If(IsElement(frmList(frm))) Then 
       frmList(frm) = 1 ' Need to increment this value with 1 if tag exist 
      Else 
       frmList(frm) = 1 
      End If 
      Set ud = newdc.Getnextdocument(ud) 
     Loop 

si cela est impossible à l'aide des "listes", je besoin d'une autre solution

grâce

Thomas

Answer 1

Il suffit d'écrire

frmList(frm) = frmList(frm) + 1 

frmList(frm) vous donne le nombre actuel d'un formulaire. Il suffit de l'incrémenter et de définir la nouvelle valeur.