以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  java.util.ArrayList cannot be cast to java.util.Map  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190720)

--  作者:aidimeng
--  发布时间:2024/2/29 13:49:00
--  java.util.ArrayList cannot be cast to java.util.Map
Dim hc As New HttpClient("http://IP:90/seeyon/rest/bpm/process/start")
 Dim r As Row = CurrentTable.Current
\'\'
 Dim xxtoken As String = Functions.Execute("token").ToString
hc.Headers.Add("token", xxtoken)
\'上传图片 ---开始-调用函数传参







Dim xm As Object = r("姓名")
Dim shoujihao As Object = r("手机号")
Dim fankuilb As Object = r("反馈类别")
Dim nr As Object = r("内容")
Dim riqi As Object = r("日期")

Dim url As String = "IP:90/seeyon/rest/bpm/process/start"
 
Dim jo As New JObject
jo("appName") = "collaboration" \'固定值 
jo("transfertype") = "json"

jo("data") = New jobject
jo("data")("templateCode") = "DJ001" \'流程编号
jo("data")("draft") = "0" \'1草稿 0 发送
 


jo("data")("data") = New jobject
jo("data")("data")("formmain_6773") = New JObject \'formmain_0247 流程数据表名
jo("data")("data")("formmain_6773")("发起人") = "8888"

\'//附件数组-   多行数据处理
  Dim ja2 As New JArray
    
    
    Dim joo As New JObject
    joo("姓名") = xm.ToString
    joo("手机号") = shoujihao.ToString
    joo("反馈类别") = fankuilb.ToString
    joo("内容") = nr.ToString
    \'joo("日期") = riqi.ToString

    ja2.Add(joo)
    
 

jo("data")("data")("formmain_6773") = ja2
 

hc.C
 Output.Show(jo.ToString)
hc.Content = jo.ToString
Dim ret As String = hc.GetData()
Dim jo1 As JObject = JObject.Parse(ret)

 
Output.Show(ret.ToString)
Dim ddo As JObject = JObject.Parse(ret)
\'MessageBox.Show(DDO.ToString)
If ddo("data")("app_bussiness_data") IsNot Nothing Then
    
   \' Output.Show(ddo("code").tostring)
    Dim jo2 As JObject = JObject.Parse(ddo("data")("app_bussiness_data").tostring)
    \'Output.Show(jo2("affairId").tostring)
    r("affairId") = jo2("affairId").tostring
    r("summaryId") = jo2("summaryId").tostring
    r.DataRow.Save
    
    
    
End If

MessageBox.Show("推送成功")
返回
{
  "code" : 1,
  "message" : "java.util.ArrayList cannot be cast to java.util.Map"
}

--  作者:有点蓝
--  发布时间:2024/2/29 14:09:00
--  
这个是接口的问题,去咨询接口方这个返回值表示什么意思