Question

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

我创建了2个新的活动列：Distance和VerifyDistance。创建距离列以使用Trig功能查找距离。它运行成功，但可能需要改进其混乱的结构。 VerifyDistance使用IF条件并检查另一列名为“Valid O / D”的值。如果值为“OK”，则返回Distance值;否则，它将在此列中返回一个文本值“O-D points is invalid”。

正如您所看到的，我是编程语言的新手。 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

列的VBScript条件值

1 个答案: