如何把返回的json值填入到table中？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用ycwk在2019/5/31 10:57:00的发言：
临时表不能像普通表一样，检测新增行吗？

再问，临时表，

Dim dr1 As DataRow = DataTables("Result_床位").AddNew() 后，不能立即在表中显示出新增的这行吗？

可以检测新增行啊。

你是不是给表设置了筛选条件，导致不显示某些行？

如何清空和刷新临时表？

以下是引用ycwk在2019/5/31 11:33:00的发言：
如何清空和刷新临时表？

清空 DataTables("表B").deletefor("")

删除 DataTables.unload("统计")

用下面的代码新增临时表

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() '关闭多层表头

但用下面的代码检查新增，并没有弹出提示啊

If CurrentTable.Name="Result_床位" Then

Dim dt As DataTable = DataTables("Result_床位")

For Each dr As DataRow In dt.DataRows

If dr.RowState = DataRowState.Added Then

msgbox("hello")

End If

msgbox弹出你的currentTable.name的值看一下。

我这样测试没问题

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()

DataTables("Result_床位").AddNew()
DataTables("Result_床位").AddNew()
DataTables("Result_床位").AddNew()
DataTables("Result_床位").AddNew()

Dim dt As DataTable = DataTables("Result_床位")
For Each dr As DataRow In dt.DataRows
    If dr.RowState = DataRowState.Added Then
        msgbox("hello")
    End If
Next

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