- 博客(3)
- 收藏
- 关注
原创 追加RTF域值
Sub AddReadLog(doc As NotesDocument,strLog As String) Dim item As Variant Set item = doc.GetFirstItem("F_ReadLog") If item.Type Set item = New NotesRichTextItem(doc,"F_ReadLog") End If Call
2009-08-10 17:21:00 354
原创 RTF域的备份(调用AppendRTItem方法)
由于需要将审批流程记录保存,但是审批流程记录保为RTF域,因为保存时,方法如下: Dim itemLogNew As NotesRichTextItem Dim itemLog As NotesItem Dim itemlogOld As NotesRichTextItem Set itemlogOld=uidoc.GetFirstItem("F_ReviewLog") Se
2009-08-10 16:17:00 532
原创 JS调试技巧汇总(待补充)
1、直接在IE的URL上:javascript:alert(document.all.F_Dates[1].innerHTML) 2、打调试器: 如:Microsoft Script Editor 菜单“调试”-->“快速监视” 输入: document.all.F_Dates.length
2009-08-07 10:14:00 348
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人