用下面的代码新增临时表
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() '关闭多层表头