主题：GetValues

又测试了一遍，使用10000行数据测试，getvalue要150秒左右，select要430秒左右

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

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

10000000000000000000000000000000000000000000000000000000%有问题？

几万行数据循环就要，调用几万次getvalues或者select，也就这样了。

有史以来最好玩的最大的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

应该是一个从内存获得，方法有默认来源！

或者两个方法混了，SQLGetValues，SQLSelect

请上传实例说明

也就是说，加上红字的代码后执行，20000行，只要1秒就行了。

Dim st As Date = Date.Now

Dim v As Double
For Each dr As DataRow In DataTables("dtpzzb").DataRows
    v = DataTables("dtpzzb").Compute("Count(pzzb142)", "pzzb142 = " & dr("pzzb142"))
    
Next

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 & "秒")