zoukankan      html  css  js  c++  java
  • 保存文档前判断RTF域是否是空值

    保存文档前判断RTF域是否是空值
    RTF域在文档没有保存前,是不能通过script判断的,因此需要以下程序识别是否是空值。
    你可以使用下面这个函数来判断,在QuerySave中添加如下代码:

    flag = IsRTFNull("你的RTF域名")
    If flag = True Then
        Messagebox "请填写内容"
        Continue = False
    End If
    Function IsRTFNull(rtfield As String) As Integer
        On Error Goto Errhandle
        Dim workspace As New NotesUIWorkspace
        Dim uidoc As NotesUIDocument
        Set uidoc = workspace.CurrentDocument
        currentfield = uidoc.CurrentField
        Call uidoc.GotoField(rtfield)
        Call uidoc.SelectAll
        Call uidoc.DeselectAll
        If currentfield <> "" Then
            Call uidoc.GotoField(currentfield)
        End If
        IsRTFNull = False
    Exit Function
    Errhandle:
        Select Case Err
        Case 4407
    'the DeselectAll line generated an error message, indicating that the rich text field does not contain anything
            If currentfield <> "" Then
                Call uidoc.GotoField(currentfield)
            End If
            IsRTFNull = True
            Exit Function
        Case Else
    'For any other error, force the same error to cause LotusScript to do the error handling
            Error Err
        End Select
    End Function
  • 相关阅读:
    hdu_2842_Chinese Rings(矩阵快速幂)
    hdu_3565_Bi-peak Number(数位DP)
    hdu_1536_S-Nim(DFS_SG博弈)
    hdu_1848_Fibonacci again and again(博弈sg函数)
    hdu_2147_kiki's game(博弈)
    hdu_2955_Robberies(01背包)
    hdu_5705_Clock("巴卡斯杯" 中国大学生程序设计竞赛
    [POJ2104]K-th Number
    【AHOI2014复仇】
    最长回文子串
  • 原文地址:https://www.cnblogs.com/hannover/p/1347946.html
Copyright © 2011-2022 走看看