Lotus notes Lotus Designer软件、命令和Lotus脚本

我最近从互联网上尝试了这个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

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

有人能看出什么地方不对劲吗。。

---

我知道这是显而易见的，但我还是找不到，因为我是LotusNotes的新手。

你在混合字符串和数字。确保计算的输入是数字

   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 

---

变量的拼写不一致

像细绳一样暗淡 Dim Celsius值为双精度

摄氏度=Str$（celciusvalue） 调用uidoc.FieldSetText（“Field_C”，celcius）

注意celsius/celcius的拼写

使用Options中的Option Declare可避免这种情况，它会将拼写错误捕获为未声明的变量。

我仍然会收到错误，错误为“参数类型不正确：应为字符串。下面是程序，我只将数字作为输入。单击子按钮（源代码为按钮）Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim y As Double Dim celsius value As String Dim celsius value As Double Set uidoc=workspace.CurrentDocument x=uidoc.FieldGetText（“Field_F”）y=Val（x）celsius value=（y-32）*（5/9）celsius=Str$（celsius value）Call uidoc.FieldSetText（“Field_C”，celsius）End Sub

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