Question

    url = loginInfo.settings.apiUrl & "sigma?machineId=" & If(production.machineId IsNot Nothing, Uri.EscapeDataString(production.machineId), Nothing)
    Dim jsonObj = Common.GetJson(url, loginInfo.token)

我有一个jsonObject，它通过url和Getjson方法获取数据。空的JsonObj格式已在下面给出，其中主要模型为“ mstSigmaVos”

{
  "type": "mstSigmaList",
  "error": false,
  "mstSigmaVos": [],
  "resourceMap": {
  "entry": []
 }
}

以前，我已经在jsobObj上面进行过验证，例如下面的代码无法正常工作。

   If Not jsonObj("mstSigmaVos") Is Nothing Then
        'Do Something
    End If

我的问题是，为什么

If Not jsonObj("mstSigmaVos") Is Nothing Then
  'Do something
EndIf

或

 If jsonObj("mstSigmaVos")IsNot Nothing" Then
  'Do something
 EndIf

这些检查不适用于vb中的jsonObj检查吗？

Answer 1

我已经通过在vb中使用以下方法解决了json验证问题。

 Dim hasJsonData = jsonObj("mstSigmaVos").count
 If hasJsonData > 0 Then
  'Do something
 EndIf

但是请保持困惑，为什么那些VB验证“ IsNot Nothing”，“ Not Is Nothing”无效。

Visual Basic中的jsonObject空检查

1 个答案: