主题：如何把返回的json值填入到table中？

               Dim txt As String = Forms("测试1").Controls("tb_病区编号").Value

               Dim str4 As String = "http://172.16.5.100:2000/Auth.asmx/Bedinfo_query?xml=<xml><nurse_cell_code>" & txt & "</nurse_cell_code></xml>"

                 Dim hc As New HttpClient(str4)

                 Dim ret As String = hc.GetData()

                   

                 Dim xmlDoc As New System.XML.XmlDocument

                 xmlDoc.Loadxml(ret)

                 Dim ndList  = xmlDoc.GetElementsByTagName("string")

                 Dim json = ndList(0).innerText

                 Dim jo As JArray=JArray.parse(json)

Dim dtb As New DataTableBuilder("Result_床位")    '生成临时表 Result_床位

dtb.AddDef("BED_NO", Gettype(String), 32)

dtb.AddDef("NURSE_CELL_CODE", Gettype(String), 32)

dtb.AddDef("FEE_GRADE_CODE", Gettype(String), 32)

dtb.AddDef("BED_WEAVE", Gettype(String), 32)

dtb.AddDef("BED_STATE", Gettype(String), 32)

dtb.AddDef("WARD_NO", Gettype(String), 32)

dtb.AddDef("SORT_ID", Gettype(String), 32)

dtb.AddDef("OPER_CODE", Gettype(String), 32)

dtb.AddDef("OPER_DATE", Gettype(String), 32)

dtb.AddDef("GRADENAME", Gettype(String), 32)

dtb.AddDef("SUMFEE", Gettype(String), 32)

dtb.Build()

'For Each v As String In DataTables("表A").GetValues("姓名")

For i As Integer = 0 To jo.Count - 1   

       Dim dr1 As DataRow = DataTables("Result_床位").AddNew()

       dr1("BED_NO") = jo(i)("BED_NO").ToString

       dr1("NURSE_CELL_CODE") = jo(i)("NURSE_CELL_CODE").ToString

       dr1("FEE_GRADE_CODE") = jo(i)("FEE_GRADE_CODE").ToString 

       dr1("BED_WEAVE") = jo(i)("BED_WEAVE").ToString 

       dr1("BED_STATE") = jo(i)("BED_STATE").ToString   

       dr1("WARD_NO") = jo(i)("WARD_NO").ToString

       dr1("SORT_ID") = jo(i)("SORT_ID").ToString

       dr1("OPER_CODE") = jo(i)("OPER_CODE").ToString 

       dr1("OPER_DATE") = jo(i)("OPER_DATE").ToString 

       dr1("GRADENAME") = jo(i)("GRADENAME").ToString   

       dr1("SUMFEE") = jo(i)("SUMFEE").ToString

Next   '循环取json的记录

Tables("测试1_Table1").DataSource = DataTables("Result_床位")

DataTables("Result_床位").MultiRowHeader=False     '关闭多层表头

DataTables("Result_床位").BuildHeader()           '关闭多层表头