这样测试,看返回什么数据
……
Dim ja As New Jarray '定义数组
Dim dds As List(of DataRow) = DataTables("Users").Select("userid is not null")
For Each dd As DataRow In dds
ja.Add(CStr(dd("userid")))
Next
jo("useridlist") =ja
hc.Content = jo.Tostring()
dim res as string = hc.GetData
msgbox("checkindata = " & res)
jo = JObject.Parse(res)
If jo("checkindata") IsNot Nothing Then
msgbox("checkindata = " & jo("checkindata"))