一个表单,双击时自动进行编辑模式,要想让别个不能进行编辑模式,如何做啊. :?: :?:
FireBird5 回复于：2005-06-18 22:41:42
C/S吧？表单事件Querymodechange。
YiMingWorks 回复于：2005-06-21 17:49:01
表单有个属性，好象在属性窗口的第二页上面，自动启用编辑模式，去掉试试。
qingzhou 回复于：2005-06-24 17:21:25
▲表单(Globals)-(Declarstions):
Dim EditKey As String
▲表单(Globals)-Initialize:
Sub Initialize
EditKey="0"
End Sub
▲表单的Querymodechange：
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
Dim doc As NotesDocument
Set doc=Source.Document
If Not (Source.EditMode) Then
If EditKey="0" Then
Continue=False
Else
Continue=True
End If
End If
End Sub
然后创建一个“编辑”按钮编辑表单：
Sub Click(Source As Button)
Dim w As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc=w.CurrentDocument
EditKey="1"
uidoc.EditMode=True
End Sub
这样你只要通过设置按钮的隐藏条件来控制“编辑”按钮。
|
