主题：这个代码有什么问题,重复写入两个相同的数据到json包

 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

 搞定了,添加ja 顺序错了