主题：GetValues

大师：劳驾测试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秒。

刚才有测试了以下，出鬼了，又如您所说的一样了，像这种要求，如何优化代码？

之前我测试了多次，而且还显示了每个集合的数量，只要0.几秒，怎么现在就不行了？

10000000000000000000000000000000000000000000000000000000%有问题？

有史以来最好玩的最大的bug!!!!!!!!!!!Dim v As Double
For Each dr As DataRow In DataTables("表A").DataRows
    v = DataTables("表A").Compute("Count(第二列 )", "第二列 = " & dr("第一列"))
    dic.Add(dr, v)
Next