求封装一个对JObject和JArray进行判断的函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求封装一个对JObject和JArray进行判断的函数

共有3084人关注过本帖树形打印复制链接主题：求封装一个对JObject和JArray进行判断的函数

as2565929355

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：81 积分：1093 威望：0 精华：0 注册：2017/1/3 9:45:00

求封装一个对JObject和JArray进行判断的函数 发帖心情

Post By：2023/1/31 13:12:00 [只看该作者]

想封装一个函数,传递的参数不确定,有可能是JObject,也有可能是JArray,现在想对参数进行判断做后续的处理

Dim obj1 As Object = Args(0)

Dim obj2 As Object = Args(1)

Dim maxLength As Integer = Args(2)

If obj1 Is Nothing Then Return obj2

If obj2 Is Nothing Then Return obj1

Dim sum1 As Double

Dim sum2 As Double

If obj1.GetType() Is GetType(JObject) Then

Output.Show("JObject")

End If

If TypeOf obj1 Is JArray Then

Output.Show("obj is JArray")

ElseIf TypeOf obj1 Is JObject Then

Output.Show("obj is JObject")

Else

Output.Show("判断不出来")

End If

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：106536 积分：541839 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/1/31 13:32:00 [只看该作者]

我测试没有问题，外部是怎么传参数的？

此主题相关图片如下：1.png

as2565929355

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：81 积分：1093 威望：0 精华：0 注册：2017/1/3 9:45:00

Post By：2023/1/31 13:56:00 [只看该作者]

谢谢蓝老师,外面的参数传错了 ,传成Object的了

主题：求封装一个对JObject和JArray进行判断的函数