VB.NET中的类型比较

Private Function Equal(ByVal parameter As String,ByVal paramenterName As String,ByVal dataType As TypE) As String

    @R_675_9792@ataType = String Then
        return 1;
    End If

 End Function

接受的答案有语法错误。这是正确的解决方案：

@R_675_9792@ataType = GetType(String) Then
    Return 1
End If

要么

@R_675_9792@ataType.Equals(GetType(String)) Then
      Return 1
 End If

要么

@R_675_9792@ataType Is GetType(String) Then
     Return 1
 End If

最后一个方法可能是检查的最佳方法，因为如果对象为空，它不会抛出异常。

另见https://msdn.microsoft.com/en-us/library/system.object.gettype(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1