Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:效率问题求助

1楼
lur320 发表于:2024/6/17 14:21:00
 Dim t As New List(Of DataRow)
For Each dr As DataRow In DataTables("QC数据").Select("文件名称 is not null")
    Dim d As DataRow
    d = DataTables("QC数据").find("文件名称 is null and 文件地址='" & dr("文件地址") & "'")
    If d IsNot Nothing Then
        t.Add(dr)
    End If
Next
Output.Show(t.Count)

等了15分钟,没出结果。CPU15%,内存300M。没卡死就是慢。

DataTables("QC数据")大概18万行。
有什么办法优化下?
2楼
有点蓝 发表于:2024/6/17 14:38:00
这代码想实现什么功能?
3楼
lur320 发表于:2024/6/17 14:41:00
 Dim t As New List(Of DataRow)
For Each dr As DataRow In DataTables("QC数据").Select("文件名称 is not null")
    Dim d As DataRow
    d = DataTables("QC数据").find("文件名称 is null and 文件地址='" & dr("文件地址") & "'")
    If d IsNot Nothing Then
        t.Add(dr)
    End If
Next
for each c as data row in t
c("dup")=true
next

完整的代码,就是为了查看这个表里面那些行重复了。运行时太慢,所以想先看看多少重复的行

老代码和新代码的不同,是一个保存了文件名称,一个没有。单其他信息是一样的。所以重复了

[此贴子已经被作者于2024/6/17 14:44:48编辑过]
4楼
有点蓝 发表于:2024/6/17 14:57:00
DataTables("QC数据").sqlreplacefor(dup,true,"文件名称 is  null and 文件地址 in (select 文件地址 from [QC数据] where 文件名称 is not null)")
共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.