是想学习写法：1、假定这个json就是从别处得到的 然后解析（老师已指导）
2、学习表格数据生成json（老师已指导） 怎么根据条件分别批量创建json（尚未学习到方法）
3、根据json然后按照老师的exweui来学习流程图设计（老师已指导）
4、怎么根据表格来直接生成流程图呢？（尚未学习到方法）
下面的参照流程图设计帮助
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.AppendHTML("<link rel='stylesheet' href='./exweui.css'/>",True)
Dim fl As String = HttpServer.WebPath & "\save.json"
If FileSys.FileExists(fl)
Dim txt As String = FileSys.ReadAllText(fl)
Dim jo As JObject = Jobject.Parse(txt)
If jo("danweiname") IsNot Nothing Then
With ExWeUI.WebUI.AddStepGroup("","step1","",,2)
With .AddStep("st02","","【单位名称】" & jo("danweiname").ToString)
.Description = "【人员名称】" & jo("name").ToString
End With
For Each jt As JToken In jo("date")
With .AddStep("st01","","【日期】" & jt("tiem").ToString)
.Description = "【摘要】" & jt("context").ToString
End With
Next
wb.InsertHTML(.BuildHtml)
End With
End If
e.WriteString(wb.Build)
Else
e.WriteString("没有查到快递信息")
End If
json文件内容：
{
"danweiname": "AAAA",
"name": "BB",
"date": [
{
"tiem": "2020-09-01",
"context": "CES"
},
{
"tiem": "2020-11-11",
"context": "REW"
},
{
"tiem": "2020-12-12",
"context": "TRE"
}
]
}
得到如下图：
此主题相关图片如下：11111.jpg
有没有办法 取消单位名称和人员名称左边的那点和线条呢
[此贴子已经被作者于2020/7/22 10:50:36编辑过]
加好友 
发短信
Post By：2020/7/21 20:20:00 [只看该作者]
