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

正常的方式好象提不了速。

比如：

Dim s2 As Date = Date.Now()
Dim Les As List(Of String) = DataTables("test").GetUniqueValues("[第三列] is not null","第二列")
For Each Le As String In Les
    Dim drs As List(Of DataRow) = DataTables("test").Select("[第二列] = " & Le)
    For n As Integer = 0 To drs.Count - 1
        If n > 0 Then
            drs(n)("第三列") = drs(n-1)("第三列")
        End If
    Next
   
Next
Output.Show("处理完毕! 耗时: " & (Date.Now -s2).TotalSeconds)

速度低的可怜。

变态的方式。

Dim s2 As Date = Date.Now()
Dim dtb As New DataTableBuilder("Temp")
dtb.AddDef("第二列", Gettype(Double))
dtb.AddDef("第三列", Gettype(String),32)
dtb.TableVisible = False
dtb.Build()
Dim Les As List(Of String()) = DataTables("test").GetUniqueValues("[第三列] is not null","第二列","第三列")
For Each Le As String() In Les
    Dim r As Row = Tables("Temp").AddNew
    r("第二列") = Le(0)
    r("第三列") = Le(1)
Next
Relations.Add("关联",DataTables("Temp").DataCols("第二列"),DataTables("test").DataCols("第二列"),False)
DataTables("test").DataCols.Add("X", Gettype(String), "Parent(关联).第三列")
For Each dr As DataRow In DataTables("test").DataRows
    dr("第三列") = dr("X")
Next
Relations.Delete("关联")
DataTables("test").DataCols.Delete("X")
Output.Show("处理完毕! 耗时: " & (Date.Now -s2).TotalSeconds) '【0.9s  还行】

我没办法了

用PDATE直接后台计算居然比一楼代码还慢

这个更快

Dim s2 As Date = Date.Now()
Dim dtb As New DataTableBuilder("Temp")
dtb.TableVisible = False
dtb.Build()
DataTables("Temp").Fill("Select * From {test}", True)
For Each dr As DataRow In DataTables("test").DataRows
    Dim dr1 As DataRow = DataTables("Temp").Find("第二列 = '" & dr("第二列") & "' And 第二列 Is Not Null")
    If dr1 IsNot Nothing
        dr("第三列") = dr1("第三列")
    End If
Next
Output.Show("处理完毕! 耗时: " & (Date.Now -s2).TotalSeconds)

改成这样试试：

Dim s2 As Date = Date.Now()
Dim dtb As New DataTableBuilder("Temp")
dtb.TableVisible = False
dtb.Build()
DataTables("Temp").Fill("Select * From {test} Where 第三列 Is Not Null",True)
For Each dr As DataRow In DataTables("test").DataRows
    Dim dr1 As DataRow = DataTables("Temp").Find("第二列 = '" & dr("第二列") & "'")
    If dr1 IsNot Nothing Then
        dr("第三列") = dr1("第三列")
    End If
Next
Output.Show("处理完毕! 耗时: " & (Date.Now -s2).TotalSeconds)

以前我是用Compute碰过到此类问题，后来老六测试后说是.net的一个bug，人家牛B什么bug都不改。