救命。。。。。。。。。。。。还是读者问题。。。请近来看看我的代码吧。。555555
Sub Click(Source As Button)
Dim ws As New NotesUiworkspace
Dim Session As New NotesSession
Dim ToDb As Notesdatabase
Dim CurDb As NotesDatabase
Dim Uidoc As NotesUIdocument
Dim CurDoc As NotesDocument
Dim ToDoc As NotesDocument
Set CurDb=Session.CurrentDatabase
Set Uidoc=ws.currentdocument
Set Curdoc=Uidoc.document
Set ToDb=New NotesDatabase(CurDb.server,"swyqsbpt.nsf")
flag=ws.DialogBox("SelDartment",True,True,False,False,False,False,"请选择发送单位")
If flag=False Then
Exit Sub
Else
'Exit Sub
Call CurDoc.save(True,True)
Set ToDoc=New NotesDocument(ToDb)
ToDoc.Form="fw"
Msgbox CurDoc.SelDepartment(0)
Dim Item1 As New NotesItem(ToDoc,"Users",CurDoc.SelDepartment,READERS)
'ToDoc.Users=CurDoc.SelDepartment如果直接副值的话，所有的人都能看的到。。。。
'Dim Item1 As NotesItem
'Set item1 = New NotesItem ’如果用new的话，所有的都看不见。。(ToDoc,"Users",CurDoc.SelDepartment,READERS)
'item1.IsReaders=True
'item1.IsSummary = True
ToDoc.Title=CurDoc.title(0)
Call ToDoc.save(True,True)
x=ToDoc.Users
Msgbox ToDoc.Users(0)
Msgbox "发布成功！"
End If
End Sub
救命。。。。。。。。。。。。
问题点数：20、回复次数：11Top
1 楼lsh22（老婆，为了你我要学VC--MFCing）回复于 2003-06-03 15:55:06 得分 0
upTop
2 楼chris1979（福气啦）回复于 2003-06-03 16:30:46 得分 5
觉得应该对取的发送单位的值的内容做检查?
直接将其写到ToDoc的读者域里去,看是否起作用?如果不起作用,说明取的值就不对
奇怪的问题Top
3 楼lsh22（老婆，为了你我要学VC--MFCing）回复于 2003-06-03 16:49:47 得分 0
所有该想的办法我都想了。。。。。。。。。我直接用admin/市委/CN这样的值放进去。。都不不行。。。。。。。。。。。天呀。。。。。。这是什么问题呀。。。。。。。。。。。那个鸟Bug一定在暗地里笑我。妈的。。。救命呀。。。。。。。。。。大侠Top
4 楼why2100（白开水）回复于 2003-06-03 17:08:09 得分 15
数据库的ACL权限表中，人员的权限应低于“编辑者”，你设对了吗？Top
5 楼lsh22（老婆，为了你我要学VC--MFCing）回复于 2003-06-03 17:18:13 得分 0
为什么要应低于“编辑者”，我现在都是设计者Top
6 楼why2100（白开水）回复于 2003-06-03 17:33:42 得分 0
读者域只针对“编辑者”以下的权限有效。帮助上说的有Top
7 楼lsh22（老婆，为了你我要学VC--MFCing）回复于 2003-06-03 17:38:44 得分 0
可是我现在已经设置了读者还是没什么作用呀。。。还是不起作用呀Top
8 楼why2100（白开水）回复于 2003-06-03 17:52:44 得分 0
sorry,刚才说错了。作者域才于ACL权限有关。你把“admin”直接赋进去也不行吗？你最好看看产生后的文挡中，读者域中的值到底是什么。另外看是不是有多个读者域Top
9 楼lsh22（老婆，为了你我要学VC--MFCing）回复于 2003-06-03 18:00:46 得分 0
关键是我用new方法，我连文档都没发看，，用直接副值的话，读者域的值是正确的。。。。Top
10 楼lsh22（老婆，为了你我要学VC--MFCing）回复于 2003-06-03 18:56:04 得分 0
Sub Click(Source As Button)
Dim ws As New NotesUiworkspace
Dim Session As New NotesSession
Dim ToDb As Notesdatabase
Dim CurDb As NotesDatabase
Dim Uidoc As NotesUIdocument
Dim CurDoc As NotesDocument
Dim ToDoc As NotesDocument
Dim Item1 As NotesItem
Dim Item2 As NotesItem
Set CurDb=Session.CurrentDatabase
Set Uidoc=ws.currentdocument
Set Curdoc=Uidoc.document
Set ToDb=New NotesDatabase(CurDb.server,"swyqsbpt.nsf")
flag=ws.DialogBox("SelDartment",True,True,False,False,False,False,"请选择发送单位")
If flag=False Then
Exit Sub
Else
'Exit Sub
Call CurDoc.save(True,True)
Set ToDoc=New NotesDocument(ToDb)
ToDoc.Form="fw"
'Call CurDoc.CopyAllItems(ToDoc)
Msgbox CurDoc.SelDepartment(0)
Set Item1 = New NotesItem(ToDoc,"Users",CurDoc.SelDepartment,READERS )
Item1.IsReaders=True
Item1.IsSummary = True
'Dim Item1 As New NotesItem(ToDoc,"Users",CurDoc.SelDepartment,READERS)
'ToDoc.Users=CurDoc.SelDepartment
Dim userName As New NotesName(session.UserName)
y=userName.Abbreviated
Msgbox y
'Dim Item2 As New NotesItem(ToDoc,"docAuthors",y,AUTHORS)
Set item2 = New NotesItem(ToDoc,"docAuthors",y,READERS)
Item2.IsAuthors=True
Item2.IsSummary = True
ToDoc.Title=CurDoc.title(0)
Call ToDoc.save(True,True)
x=ToDoc.Users
Msgbox ToDoc.Users(0)
Msgbox "发布成功！"
End If
End SubTop
11 楼surfboy（冲浪小子）回复于 2003-06-03 21:22:06 得分 0
你在视图的文档上...写右键..看看那个域的类型..是不是不是读者域..而是TEXT了...
而且最好给读者域赋值...用Call notesItem.AppendToTextList( newValue )或
Set notesItem = notesDocument.ReplaceItemValue( itemName$, value )
这样才好用...多试一试Top
