通过addnew的形式将解析json的数据复制到表中，窗口加载慢怎么处理啊？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

输出时间记录一下，看慢在哪里？如果是获取接口数据慢，可以提前把数据下载下来。

Tables("明细表").StopRedraw

For Each ep As JToken In JArray.Parse(ret)
Dim rr As Row=Tables("明细表").addnew()
rr("合同编号")=ep("合同编号")
rr("合同开始日期")=ep("合同开始日期")
rr("合同终止日期")=ep("合同终止日期")
rr("起租日期")=ep("起租日期")
rr("签订日期")=ep("签订日期")
rr("项目名称")=ep("项目名称")
rr("楼栋名称")=ep("楼栋名称")
rr("房间名称")=ep("房间名称")
rr("客户名称")=ep("客户名称")
rr("租赁类别")=ep("租赁类别")
rr("合同状态")=ep("合同状态")
rr("合同面积")=ep("合同面积")
rr("经手人")=ep("经手人")
rr("租金总额")=ep("租金总额")
Next

Tables("明细表").ResumeRedraw

主题：通过addnew的形式将解析json的数据复制到表中，窗口加载慢怎么处理啊？