新版为何感觉从后台读取数据慢多了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新版为何感觉从后台读取数据慢多了

共有3764人关注过本帖树形打印复制链接主题：新版为何感觉从后台读取数据慢多了

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2022/1/12 15:10:00 [显示全部帖子]

我测试了一下，第一列和第二列，都是整数型，分别用foxtable 2019和2022测试，用时都是0.10秒：

Tables("表A").addNew(10000)

For Each r As Row In Tables("表A").Rows

r("第一列") = rand.Next(1,20000)

r("第二列") = rand.Next(1,20000)

Dim st As Date = Date.Now

Dim lst1 As New List(of DataRow)

Dim lst2 As New List(of DataRow)

For Each dr As DataRow In DataTables("表A").DataRows

If DataTables("表A").Find("第二列 = " & dr("第一列")) Is Nothing Then

lst1.Add(dr)

Else

lst2.Add(dr)

End If

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") '计算并显示执行代码所花费的秒数

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2022/1/12 16:04:00 [显示全部帖子]

字符型的话，2022版2.9秒，2019版3.5秒，新版本更快。

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2022/1/12 16:44:00 [显示全部帖子]

按道理是这样的，不过下面的代码，在新版同样不到0.2秒完成，速度还可以：

Tables("表A").addNew(10000)

For Each r As Row In Tables("表A").Rows

r("第一列") = rand.NextString(16)

r("第二列") = rand.NextString(16)

Dim st As Date = Date.Now

Dim lst1 As New List(of DataRow)

Dim lst2 As New List(of DataRow)

For Each dr As DataRow In DataTables("表A").DataRows

If DataTables("表A").Find("第二列 = '" & dr("第一列") & "'") Is Nothing Then

lst1.Add(dr)

Else

lst2.Add(dr)

End If

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒") '计算并显示执行代码所花费的秒数

下一主题 >> << 上一主题

主题：新版为何感觉从后台读取数据慢多了