主题：GetValues

大师：劳驾测试GetValues的效率，回到解放前了，慢的像乌龟爬！

这能叫升级，能叫修复？举世没有，哪有这种道理，项目都要修改。

select不需要去重，肯定是比GetValues快的。但是我测试返回10000行也只需要44毫秒。至于取数后的遍历就和GetValues没有关系了吧

如果以下代码改为GetValues方法，2万行测试要297秒，下面的代码只要0.6秒。

Dim st As Date = Date.Now

Dim Dic As new Dictionary(of DataRow,String)

For Each dr As DataRow In DataTables("dtpzzb").DataRows

    Dim jh As new List(of DataRow)

    Dim jh1 As new List(of String)

    If dr("pzzb9") <> 0  Then

        jh = DataTables("dtpzzb").Select(" pzzb8 <> 0 and pzzb142 = '" & dr("pzzb142") & "'")

        For Each tr As DataRow In jh

            If jh1.Contains(tr("pzzb12")) = False  Then

                jh1.Add(tr("pzzb12"))

            End If

        Next

        Dim sz() As String

        sz = jh1.ToArray

        Dim zfc As String

        zfc = String.Join(";",sz)

        dic.Add(dr,zfc)

    ElseIf dr("pzzb8") <> 0  Then

        jh = DataTables("dtpzzb").Select(" pzzb9 <> 0 and pzzb142 = '" & dr("pzzb142") & "'")

        For Each tr As DataRow In jh

            If jh1.Contains(tr("pzzb12")) = False  Then

                jh1.Add(tr("pzzb12"))

            End If

        Next

        Dim sz() As String

        sz = jh1.ToArray

        Dim zfc As String

        zfc = String.Join(";",sz)

        dic.Add(dr,zfc)

                

    End If

    

Next

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

贴出改之后的代码

Dim st As Date = Date.Now

Dim Dic As new Dictionary(of DataRow,String)

For Each dr As DataRow In DataTables("dtpzzb").DataRows

    

    Dim jh1 As new List(of String)

    If dr("pzzb9") <> 0  Then

jh1 =  DataTables("dtpzzb").GetValues("pzzb12"," pzzb8 <> 0 and pzzb142 = '" & dr("pzzb142") & "'")

                Dim sz() As String

        sz = jh1.ToArray

        Dim zfc As String

        zfc = String.Join(";",sz)

        dic.Add(dr,zfc)

    ElseIf dr("pzzb8") <> 0  Then

        jh1 =  DataTables("dtpzzb").GetValues("pzzb12"," pzzb9 <> 0 and pzzb142 = '" & dr("pzzb142") & "'")

               Dim sz() As String

        sz = jh1.ToArray

        Dim zfc As String

        zfc = String.Join(";",sz)

        dic.Add(dr,zfc)

                

    End If

    

Next

MessageBox.Show("耗时: " & (Date.Now - st).TotalSeconds & "秒")

测试无数遍了，真没意思，所有的代码都要更改！老版测试没有问题，充分证明，每次升级根本没有进行有效的测试！

请上传实例说明。

重出江湖了，江湖又开始沸腾了

不可能，多少行数据测试的？刚测试用了320秒。