主题：帮我提速啊～ 从 90几 秒提高到了 2 秒左右 就看代码强不强了。。。

在test表中，第一列是序号（不参与代码运行，只是摆设，呵呵），第二列是有重复号码的列，第三列中对应第二列相同号吗的只有一行有内容···

要求达到：补齐第三列的内容，即，第二列相同号码的，补齐第三的内容：

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

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

命令窗口用下面代码试一试： 我这里要90秒啊···

Dim s2 As Date = Date.Now()
Dim s As String
s = DataTables("test").GetComboListString("第二列","[第三列] is not null")

Dim n As Integer = 0
For i As Integer = 0 To Tables("test").count -1
    If Tables("test")(i,"第三列") = Nothing
        Continue For
    Else       
        Dim drs As List(Of DataRow)
        drs = DataTables("test").Select("[第二列] = '" & Tables("test")(i,"第二列")  & "' ")
        For Each dr As DataRow In drs
            If dr("第三列") = Nothing
               dr("第三列") = Tables("test")(i,"第三列")
            End If
        Next
    End If
Next
Messagebox.Show("处理完毕! 耗时: " & (Date.Now -s2).TotalSeconds)   '【90.5s  太慢】