我有一组具有不同形式的文档,需要在列表中存储多个文档表单,listtag将是表单名称和该表单中该表单的出现次数的值,如下所示:
Form 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
如果使用“列表”无法做到这一点,我需要另一种解决方案
感谢
托马斯
答案 0 :(得分:6)
只需写下
frmList(frm) = frmList(frm) + 1
frmList(frm)
为您提供表单的当前编号。只需将其递增1并设置新值即可。