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(耗时)
25.642秒(144)器型参数
2.001秒(1493)CMID
