按CTRL+X 就会把此文档删除了?

1122_1

我现在的文档有两种状态,一种是"未置为可播出状态",此中情况下可以有删除按钮,一种是 "置为可播出状态"此种情况是不可以做删除
我想在数据库的SCRIPT里控制一下
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim session As New NotesSession
Dim db As notesdatabase
Set db=session.currentdatabase
Dim view1 As notesview
Dim documents As notesdocumentcollection
Dim document As notesdocument

Set document=view1.GetFirstDocument

Dim text As Variant

Set text=document.getitemvalue("mask")

If text="未置为可播出状态" Then
Messagebox "11111"
continue=True
Else
continue=False
End If


End Sub
具体思路是这样的,就是判断当前视图的第一个文档的mask值,如为"未置为可播出状态",则文档可以执行删除操作,否则不可以,调试中的问题:1)代码的If text="未置为可播出状态" Then 老是提示type mismatch
2)用什么语句才能定位为当前视图呀,请大家帮帮忙吧

/等待

[本贴已被 1122 于 2004-3-21 19:00:49 修改过]