Tho*_*ian 1 vba lotusscript list lotus-domino
我有一组具有不同形式的文档,需要在列表中存储文档表单的数量,listtag将是表单名称和该表单在集合中出现的次数的值,如下所示:
表格Main = 20
表格Doc = 10
下面的代码是我尝试做的开始,但每次有一个带有现有表单的新doc时,我需要增加该元素的值
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
Run Code Online (Sandbox Code Playgroud)
如果使用"列表"不可能,我需要另一个解决方案
谢谢
托马斯
写吧
frmList(frm) = frmList(frm) + 1
Run Code Online (Sandbox Code Playgroud)
frmList(frm)为您提供表格的当前编号.只需将其递增1并设置新值即可.