Lotus Designer软件、命令和Lotus脚本

Question

我最近尝试了这个来自互联网的lotus脚本，以添加字段并获取输入。

Sub Click(Source As Button)
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim celsius As String
    Set uidoc = workspace.CurrentDocument
    x = uidoc.FieldGetText( "Field_F" )
    celsius = (x-32)*(5/9)
    Call uidoc.FieldSetText("Field_C", celcius) 
End Sub

当我执行时，我得到类型不匹配错误，因为我给出的输入是数字，变量摄氏度被声明为字符串。

有人能说出哪里出了问题吗？我知道这很明显，但我还是找不到，因为我刚接触lotus notes。

Answer 1

你的变量拼写不一致，

Dim celsius As String Dim celsiusvalue As Double

摄氏度= Str$(celciusvalue)调用uidoc.FieldSetText("Field_C"，celcius)

请注意celsius/celcius的拼写。

在选项中使用选项Declare来避免这种情况，它将捕获未声明的变量的拼写错误。

Answer 2

您将字符串和数字混合在一起。确保计算的输入是数字。

   Sub Click(Source As Button) 
    Dim workspace As New NotesUIWorkspace 

    Dim uidoc As NotesUIDocument 
    Set uidoc = workspace.CurrentDocument 

    Dim celsiusString As String 
    celsiusString = uidoc.FieldGetText( "Field_F" ) 

    Dim y As Double 
    y = Val(x) 

    Dim celsiusvalue As Double 
    celsiusvalue = (y-32)*(5/9) 

    celsiusString = Str$(celciusvalue) 
    Call uidoc.FieldSetText("Field_C", celsiusString) 
End Sub 

Answer 3

Sub Click(Source As Button)

    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim celsius, x As Double
    Set uidoc = workspace.CurrentDocument
    x = Cdbl(uidoc.FieldGetText( "Field_F" ))
    celsius = Cdbl((x-32)*(5/9))
    Call uidoc.FieldSetText("Field_C", Cstr(celcius)) 

End Sub