{
"danger_Records": {
"Project_Code": "01DFCAB9-C709-4141-ADDF-7E5E12642356",//工程编号
"Report_Time": "2021-03-18",//上报时间
"Description": "隐患描述",
"Treatment_Charge_Person": "治理责任人",
"Treatment_Charge_Person_Phone": "13699563702",//治理负责人电话
"Plan_Completion_Time": "2021-03-18",//计划完成时间
"Danger_Name": "隐患简称",
"Danger_Position": "隐患所在部位",
"Discover_Type": "B48A9BE2-EDCE-45BA-9F57-0C6CD7651B90",//发现方式
"Deal_Type": "9107AFAF-FCEC-4888-86A1-5C51737DCD58",//处理方式
"Discover_Time": "2021-03-18"//隐患发现时间
},
"fileUploadModels": [
{
"Name": "",//文件名 要带后缀
"Data": ""//文件base64
}
]
}
解析上面的代码无效
Dim jo As New JObject
jo("danger_Records") = New JObject
jo("danger_Records")("Project_Code") = "工程编码"
jo("danger_Records")("Report_Time") = Date.Now '上报时间
jo("danger_Records")("Description") = "隐患描述"
jo("danger_Records")("Treatment_Charge_Person") = "治理责任人"
jo("danger_Records")("Treatment_Charge_Person_Phone") = "治理负责人电话"
jo("danger_Records")("Plan_Completion_Time") = Date.Today.AddDays(7)
jo("danger_Records")("Danger_Name") = "隐患简称"
jo("danger_Records")("Danger_Position") = "隐患所在部位"
jo("danger_Records")("Discover_Type") = "发现方式"
jo("danger_Records")("Deal_Type") = "处理方式"
jo("danger_Records")("Discover_Time") = Date.Now
Dim ja As New Jarray '定义数组
ja.Add(New JObject)
ja("fileUploadModels")("Name") = "隐患简称"
ja("fileUploadModels")("Data") = "附件"
Output.Show(jo.ToString)
加好友 
发短信
Post By：2022/1/14 19:14:00 [只看该作者]
此主题相关图片如下：360截图20220405084426120.jpg