主题：老大还能再来个目瞪口呆吗？

 

Dim t1 As Date = Date.Now
Dim dic As New Dictionary(of DataRow, String)
Dim dic1 As New Dictionary(of DataRow, String)
Dim dic2 As New Dictionary(of DataRow, String)
Dim dr0 As DataRow
Dim drs As List(Of DataRow)
For Each dr As DataRow In DataTables("表A").DataRows
    dr0 = DataTables("表A").Find("[第二列] = " & dr("第一列") & " And [第三列] = false" )
    If dr0 isnot Nothing
        dic.Add(dr,dr0("_identify"))     '同下:::::::
        dic1.Add(dr,dr0("第一列"))       '找到的第二列对应的第一列的数字
        dic2.Add(dr,dr0("第二列"))       '找到的第二列等于当前行第一列的数字
        dr0("第三列") = True               '上面这个条件[第三列] = false是为了排除已经找到过的行
    End If
Next
For Each dr As DataRow In dic.Keys
    dr("第八列") = dic(dr)
Next
For Each dr As DataRow In dic1.Keys
    dr("第九列") = dic1(dr)
Next
For Each dr As DataRow In dic2.Keys
    dr("第十列") = dic2(dr)
Next
For Each dr As DataRow In DataTables("表A").DataRows
    If dr.IsNull("第六列")
        dr("第三列") = False
    End If
Next

Output.Show("计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒")  ‘我这计算结束, 耗时:245.2546秒

 

这是测试用的项目：（是原来狐表的例子）

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目21.table

 

筛选后的效果图： 

此主题相关图片如下：未命名.jpg

呵呵，有空再看了，先问问你的任务是啥？

任务1：  玩代码····        用sql语句也可，lxl版主看看啊····  

任务2： 希望您再给咱一个提高速度方法 ····

呵呵，我测试下面的代码不到3秒，只是这样的代码似乎没有什么实用的意义吧：

 

Dim t1 As Date = Date.Now
Dim dic As New Dictionary(of DataRow, DataRow)
Dim lst As New List(of Integer)
Dim drs As List(of DataRow)
Dim dr1 As DataRow
For Each dr1 In DataTables("表A").DataRows
    drs = DataTables("表A").Select("[第二列] = " & dr1("第一列") )
    For Each dr2 As DataRow In drs
        If lst.Contains(dr2("_Identify"))= False Then
            lst.add(dr2("_Identify"))
            dic.Add(dr1, dr2)
            Exit For
        End If
    Next
Next
For Each dr As DataRow In dic.keys
    dr1 = dic(dr)
    dr("第八列") = dr1("_Identify")
    dr("第九列") = dr1("第一列")
    dr("第十列") = dr1("第二列")
Next
Output.Show("计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒")

 

不过我倒有个意外收获，就是逻辑列的查询非常慢，追求效率的时候可以用整数或者字符列代替逻辑列。

受益了

  4楼啊·····    羡慕啊～～～ 竟然比1楼提高速度近快50多倍了（我这里要5秒。。。。。        

 

我再改进也只能达到百秒以内 ，只比1楼提高3倍左右～～～ 思路不对

四楼的代码够学习，琢磨的。试了后，好像第八列行号标注比实际的要大，按数据库1就是实际的2，小1是正常，现在是表示的比实际的大，好像100以内大1，200以后大2，10000号会标识为10007.  不知其他测试如何。