使用 querymodechange 禁用编辑并按表单字段状态排序

Question

我创建了一个全局变量名参数。我创建此参数以禁用编辑模式。我有一个由 "Active"、"Inactive" 和 "Draft" 区分的状态字段。

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
    Dim session As New NotesSession     
    Dim db As NotesDatabase
    Dim doc  As NotesDocument
    Dim view As NotesView
    Continue = False

    Set db = session.CurrentDatabase
    Set view = db.GetView("(Parameter)")    

    Set doc = view.GetDocumentByKey("UnderInspection", True)
    If doc Is Nothing Then
        Msgbox "Parameter not found"
        Exit Sub
    End If

    If doc.PValue(0)="1" Then
        Msgbox "Under Inspection! "
        Exit Sub
    End If
    Continue = True
End Sub

如上代码，我将使用Querymodechange 为表单设置参数。如果为真，则继续为假，否则继续为真。

我的问题是，如何为状态字段名称 "Active" 和 "Inactive" 设置 querymodechange？例如，当文档的状态为 "Active" 或 "Inactive" 时，它将使用此查询模式更改，因为它将禁用编辑模式。但对于 "Draft" 状态，您可以编辑。任何帮助将不胜感激。谢谢！

Answer 1

If source.Document.GetItemValue("Status")(0)<>"Draft" Then
     ...
     Exit Sub
End If

使用 querymodechange 禁用编辑并按表单字段状态排序

Disable edit using querymodechange and sort by form field status

lotus-notes

lotus

lotus-domino