| « | November 2025 | » | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | | | | | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | | | | | | | |
|
公告 |
想过人过的日子就离开中国吧
偷渡也好移民也罢
至少不会稀里糊涂地死去
|
| Blog信息 |
|
blog名称:
日志总数:32
评论数量:68
留言数量:0
访问次数:134692
建立时间:2007年4月4日 |
| |
|
 notes中的profile document
原创空间, 心得体会, 软件技术
yjepia 发表于 2007/5/11 14:50:54 |
| 今天终于搞定了profile document。
我新建了一个form，在其中添加了一个button，然后在它的Click中选择"lotus script"，它会自动生成Sub Click(Source As Button)End Sub过程(臭鸡蛋~ ~ ~，不要砸我……)
在其中添加这段代码： Dim profile As NotesDocument Dim session As New NotesSession Dim db As NotesDatabase Set db = session.CurrentDatabase Set profile = db.GetProfileDocument("ProFile") Call profile.AppendItemValue("item","this is test profile document item!") Call profile.Save(False,False)
在button被点击后，当前的database中就会有一个叫"ProFile"的profile document，它不被任何的视图索引，想要取得它的值，要先用database.GetProfileDocument(Profile document name)的形式取得这个profile document，再用NotesDocument.GetItemValue(Item Name)(0)的形式便可以了，如果想要增加一个Item进去，可以使用上面代码中的AppendItemValue方法，删除使用Remove方法，这些方法帮助文件里写得很详细。我E文看不太懂的时候就去看它的Example，这些Example很简单，也很能说明问题。 |
|
|