情形:现有一Lotus/notes数据库 里面保存活动安排 当点击表单具体项的时候 会显示一份doc文档 里面包含一些表格信息等
请问如何将这一文档用C# 读取出来
Sub Postopen(Source As Notesuidocument)
On Error Goto ErrMsg
Dim Doc As NotesDocument
Dim RtfItem As NotesRichTextItem
Dim EmbededObj As NotesEmbeddedObject
Dim OleObject As Variant Set Doc=Source.Document
Source.EditMode =True
If doc.HasEmbedded Then'如果已经包含嵌入式对象,即word对象
Set RtfItem=Doc.GetFirstItem(Doc.~$oleobjfield(0))'取得rtf文本,可以在rtf文本中嵌入word对象
Set EmbededObj=RtfItem.EmbeddedObjects(0)'获取嵌入式对象
Set OleObject=Source.GetObject(EmbededObj.Name )
Else'创建嵌入式对象
Source.GotoField(Doc.~$oleobjfield(0))'定位到要创建嵌入式对象的rtf域
Set OleObject= Source.CreateObject("OleObject",Doc.~$oleobjprogid(0),"")'Doc.~$oleobjprogid(0)="Word.Document"
这个是表单事件LS代码 现用C#如何读取 这些文档数据是保存在notes数据库哪里呢 ,NotesRichTextItem ?
如何读取呢
请问如何将这一文档用C# 读取出来
Sub Postopen(Source As Notesuidocument)
On Error Goto ErrMsg
Dim Doc As NotesDocument
Dim RtfItem As NotesRichTextItem
Dim EmbededObj As NotesEmbeddedObject
Dim OleObject As Variant Set Doc=Source.Document
Source.EditMode =True
If doc.HasEmbedded Then'如果已经包含嵌入式对象,即word对象
Set RtfItem=Doc.GetFirstItem(Doc.~$oleobjfield(0))'取得rtf文本,可以在rtf文本中嵌入word对象
Set EmbededObj=RtfItem.EmbeddedObjects(0)'获取嵌入式对象
Set OleObject=Source.GetObject(EmbededObj.Name )
Else'创建嵌入式对象
Source.GotoField(Doc.~$oleobjfield(0))'定位到要创建嵌入式对象的rtf域
Set OleObject= Source.CreateObject("OleObject",Doc.~$oleobjprogid(0),"")'Doc.~$oleobjprogid(0)="Word.Document"
这个是表单事件LS代码 现用C#如何读取 这些文档数据是保存在notes数据库哪里呢 ,NotesRichTextItem ?
如何读取呢
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货