如何不允许一个表单进行编辑模式

whzzr

一个表单,双击时自动进行编辑模式,要想让别人不能进行编辑模式,如何做啊.

shuiyuanke

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
        Dim session As New notessession
        lcheck=source.fieldgettext("check")
        lcause=source.fieldgettext("cause")
        If Len(lcause)>1 Then
                Messagebox "此領用單已駁回,無法修改資料!",16,"錯誤!"
                Continue =False
        End If       
        If lcheck="2" Then
                Messagebox "此領用單已核準,無法修改資料!",16,"錯誤!"
                Continue =False
        End If
End Sub

晰超颉

天马行空式的想法.来顶一下.


RMT  アイオン RMT aion rmt  アトランティカRMT   リネージュ2 RMT

ff11 rmt   信長の野望 RMT  テイルズウィーバー RMT  CABAL RMT