如何显示多值域？

[hln]

Write #FileNum% , doc.RiyuCode(0)
RiyuCode是一个多值域，域值可能为“44，55，66”当把它保存为“*.csv”时，它就自动把“，”当为分隔符，doc.RiyuCode(0) 只显示44，doc.RiyuCode(1)只显示55，如何让它显示 “44，55，66”呢

[暴风雪]

楼主可以试一下使用
Forall value In doc.RiyuCode
'处理多值域中每一个值
End Forall
如果想要把这些值写入到csv文档中，就需要对逗号进行替换

[sunjy_bj]

Dim sr As Variant
Dim item As Notesitem
Dim i As Integer
Set item=doc.Getfirstitem("ttt")
Redim sr(0 To Ubound(item.values))
For i=0 To Ubound(item.values)
sr(i)=Evaluate({@ReplaceSubstring("} & item.values(i) & {";",";"")})
Next
注：ttt为域名