Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
if Source.document.状态域(0)= "已完成 " then Continue=False
End Sub
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
if Source.document.状态域(0)= "已完成 " then Continue=False
End Sub