‘判断f是否在forms中,如果在则不加入
if f.name = ctype(c.item(itemcount), form).name then
exit sub
end if
next
c.add(f)
end sub
sub remove(byval f as form) ‘向集合中删除元素的方法
‘判断f是否在forms中,如果在则不加入
if f.name = ctype(c.item(itemcount), form).name then
exit sub
end if
next
c.add(f)
end sub
sub remove(byval f as form) ‘向集合中删除元素的方法