错误提示英文是＂Target frame is ancestor of script object＂

[天行者008]

错误提示英文是＂Target frame is ancestor of script object＂
操作环境：
cs模式开发的库，采用帧结构集，在帧结构集的右边的帧结构中一个视图中的按钮中写lotusscript，
当运行时，经常会提示：错误提示英文是＂Target frame is ancestor of script object＂。
代码：
'全集团的实际分布，所有的PBC完成审批后才能统计
'20080709
'Msgbox "agent begin"
Dim ws As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim dlgdoc As NotesDocument
Dim tempdoc As NotesDocument
Dim uidoc As NotesUIDocument
Dim view As notesview
Dim tempview As NotesView
Dim vn_PBCPLFU As NotesView
Dim keystr As String
Dim selection As String
Dim dc As NotesDocumentCollection
Dim collstr As Variant
Dim deptcoll As Variant
Dim iColumn As Integer
Dim richStyle As NotesRichTextStyle
Dim richText As NotesRichTextItem
Dim styles(1 To 11) As NotesRichTextParagraphStyle

Dim ANum As Integer '绩效等级为A的PBC数量
Dim BBNum As Integer 'B+的PBC的数量
Dim BNum As Integer 'B的数量
Dim CNum As Integer 'C的数量
Dim DNum As Integer 'D的数量
Dim TotalNum As Integer '全集团PBC总的数量

Dim APercent As Variant
Dim BBPercent As Variant
Dim BPercent As Variant
Dim CPercent As Variant
Dim DPercent As Variant

'初始化
ANumSum = 0
BBNumSum = 0
BNumSum = 0
CNumSum = 0
DNumSum = 0

APercentSum = 0
BBPercentSum = 0
BPercentSum = 0
CPercentSum = 0
DPercentSum = 0

Set db = s.CurrentDatabase
Set view = db.GetView("(vn_AllPBCNotCompleted)") '未完成审批的PBC
Set dc = view.GetAllDocumentsByKey("%")
'Msgbox "未完成的PBC："
'Msgbox dc.Count
If dc.count>0 Then
Msgbox "有PBC未完成绩效等级评估，暂不能查看全集团的实际绩效等级分布"
Exit Sub
End If
'如果全集团所有PBC都已经完成审批，则求出各个绩效等级的数量和百分比
Set vn_PBCPLFU = db.GetView("(vn_AllPBCCompleted)")
Set dc = vn_PBCPLFU.GetAllDocumentsByKey("%")
TotalNum = dc.Count

Set dlgdoc = New NotesDocument(db)
dlgdoc.Form = "fm_PBCCalssDistribution"

If dc.Count <> 0 Then
'初始化变量
ANum = 0
BBNum = 0
BNum = 0
CNum = 0
DNum = 0
'分别求出A、B+、B、C、D的PBC数量和PBC的总数
Set tempdoc = dc.GetFirstDocument
Do While Not tempdoc Is Nothing
If tempdoc.PBCClass(0) = "A" Then
ANum = ANum + 1
Elseif tempdoc.PBCClass(0) = "B+" Then
BBNum = BBNum + 1
Elseif tempdoc.PBCClass(0) = "B" Then
BNum = BNum + 1
Elseif tempdoc.PBCClass(0) = "C" Then
CNum = CNum + 1
Elseif tempdoc.PBCClass(0) = "D" Then
DNum = DNum + 1
End If
Set tempdoc = dc.GetNextDocument(tempdoc)
Loop

'求出各个等级所占的百分比
If TotalNum <> 0 Then
APercent = ANum/TotalNum
BBPercent = BBNum/TotalNum
BPercent = BNum/TotalNum
CPercent = CNum/TotalNum
DPercent = DNum/TotalNum
End If

'为dlgdoc赋值，实际分布汇总
dlgdoc.APercent = APercent
dlgdoc.BBPercent = BBPercent
dlgdoc.BPercent = BPercent
dlgdoc.CPercent = CPercent
dlgdoc.DPercent = DPercent

dlgdoc.ANum = ANum
dlgdoc.BBNum = BBNum
dlgdoc.BNum = BNum
dlgdoc.CNum = CNum
dlgdoc.DNum = DNum

'Call ws.EditDocument(False, dlgdoc,True,,False)
'Call ws.SetTargetFrame("view")
Call ws.EditDocument(False, dlgdoc,True,,False)
'Set uidoc = ws.EditDocument(False, dlgdoc,True,,False)
End If