求附件的个数

[kendyhjj]

各位好,我用以下代码求当前文档(表单)中附件的个数,为什么提示TYPE mismatch,请问如何解决

Sub Click(Source As Button)

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim eval As Variant
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document

Messagebox Evaluate("@Attachments", doc)
End Sub

[ 本帖最后由 kendyhjj 于 2006-9-8 10:45 PM 编辑 ]

[imzh]

这样做：
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim eval As Variant
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
tmp = Evaluate("@Attachments", doc)
Messagebox tmp(0)
End Sub

[kendyhjj]

非常感谢imzh,还想请教下DOC不就是当前的文挡了吗,为什么还要在TMP后面加(0)呢?

[dsieyx]

因为tmp不是个值,tmp(0)才是个值,而msgbox只能显示值...

这样说对吗?我一直这么理解的....嘎嘎....希望大大们指正.

[ly_sl]

加0是取值不加0是赋；如doc.itemName(0)取出itemName条目的内容；而doc.itemName(0)="text"则是将text这个值赋给itemName条目，此功能与Call uidoc.FieldSetText("itemName","text")的功能同。