专家坐堂-加载100多条数据为什么需要二十几秒？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim d1 As Date

Tables("CMID").Visible = True

Dim 耗时 As String = ""

Dim t As TimeSpan

d1 = Date.Now

DataTables("器型参数").LoadFilter = "([器型分类] =\'杯\') And ([成型工艺] =\'滚压\')"

DataTables("器型参数").LoadTop = "100 PerCent"

DataTables("器型参数").Load

T = Date.Now() - d1

耗时 = t.TotalSeconds & "秒(" & DataTables("器型参数").DataRows.Count & ")" & DataTables("器型参数").Name

OUTPUT.SHOW(耗时)

d1 = Date.Now

DataTables("CMID").LoadFilter = ""

DataTables("CMID").LoadTop = "100 PerCent"

DataTables("CMID").Load

T = Date.Now() - d1

耗时 = t.TotalSeconds & "秒(" & DataTables("CMID").DataRows.Count & ")" & DataTables("CMID").Name

OUTPUT.SHOW(耗时)