首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 企业软件 > 行业软件 >

Item 取值,该怎么处理

2012-04-03 
Item 取值Dim item As NotesItemSet wk New notesuiworkspaceSet ss New notessessionSet db ss.cur

Item 取值
Dim item As NotesItem
Set wk = New notesuiworkspace
Set ss = New notessession
Set db = ss.currentdatabase
Set uidoc = wk.currentdocument  
Set doc = uidoc.document 

Set item = doc.GetFirstItem("test")

msgbox item.text


msgbox 显示item的值是1;2;3

如何把1 2 3分别取出来放到变量里?test域中的值可能是一个,也可能很多个。可能是1到100甚至更多。

 

[解决办法]
doc.test(0)..(1)(2)..
[解决办法]
for i=0 to ubound(doc.test)
msgbox doc.test(i)
next
就行了

热点排行