来自列的VBScript条件值

Question

我在集成块GIS数据库中使用VBScript来使用Trig函数验证两个经度和纬度点之间的距离。用于查找距离的脚本运行没有任何问题，但用于验证O-D是否有效的脚本具有语法错误。我真的希望你们中的任何人都能帮我解决这个问题。

我创建了2个新的活动列：Distance和VerifyDistance。创建距离列以使用Trig函数查找距离。它成功运行，但可能需要改进其混乱的结构。 VerifyDistance使用IF条件并检查另一列名为“有效O/D”的值。如果该值为“OK”，它将返回距离值;否则，它将返回一个文本值，在此列中显示“O-D点无效”。如你所见，我是编程语言的新手。 VBScript的下面可以看到：

Function Distance 
Distance = sqr((111.21*Record.Data("Work Y-coord") - 111.21*Record.Data("Home Y-coord"))^2 + (85.30*Record.Data("Work X-coord") - 85.30*Record.Data("Home X-coord"))^2) 

End Function 

Function VerifyDistance 
If Record.Data("Valid O/D") = "OK" 
    VerifyDistance = Record.Data("Distance") 
'document.write("Invalid O-D Points") 
Else 
    VerifyDistance = "O-D Points are invalid." 
End If 

End Function 

Answer 1

您在这里失踪Then。

If Record.Data("Valid O/D") = "OK" Then