主题：帮我提速啊～ 从 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)

速度低的可怜。