Dim ja As New JArray
Dim jo2 As New JObject
Dim jo As New JObject
For Each cl As Col In Tables("排版表").Cols
jo2(cl.Name) = cl.Name.ToString
Next
ja.Add(jo2)
jo("headers") = ja
ft = "日期>='" & dt1 & " 00:00:00' And 日期<='" & dt2 & " 23:59:59'"
If ks > "" Then
If ft > "" Then
ft = ft & " And "
End If
ft = ft & "科室 = '" & ks & "'"
End If
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SE LECT * From 科室排班 where " & ft & " And 分院='" & fy & "'"
dt = cmd.ExecuteReader()
For Each xm As String In dt.GetValues("姓名", "", "日期")
Dim nr As Row = Tables("排版表").AddNew
nr("姓名") = xm
For Each dr As DataRow In dt.Select("姓名 = '" & xm & "'", "日期")
nr(dr("日期")) = dr("排班")
Next
Next
ja = New JArray
jo2 = New JObject
For Each dr As DataRow In DataTables("排版表").Select("姓名 Is Not Null", "姓名")
For Each cl As DataCol In DataTables("排版表").DataCols
jo2(cl.Name) = dr(cl.Name).ToString
Next
ja.Add(jo2)
Next
jo("bodys") = ja
Dim json As String = jo.ToString
Output.show(json)
[此贴子已经被作者于2018/8/21 15:13:31编辑过]