再来一个：为何这段代码执行会很慢！

cyber-bobo

以下是一个合并字段的自定义函数代码：
Public Function Concatenate(pstrSQL As String, Optional pstrDelim As String = "、") As String
    Dim Rs As New ADODB.Recordset
    Rs.Open pstrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Dim strConcat As String         'Build SQLstring
    With Rs
        If Not .EOF Then
            .MoveFirst
            Do While Not .EOF
                strConcat = strConcat & _
                .Fields(0) & pstrDelim
                .MoveNext
            Loop
        End If
        .close
    End With
    Set Rs = Nothing
    'Set db = Nothing
    If Len(strConcat) > 0 Then
        strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim))
    End If
    Concatenate = strConcat
End Function
以上代码用于一个基于表的查询就没问题，但用于基于查询的查询就会很慢，数据在1千条以上时要等上两三分钟，为什么呢？应作如何修改？请高人指点！

cyber-bobo

继续等待，期待高手帮忙，自顶！

kevindeng

是不是你本身的那个查询执行起来就比较慢呢
我没发现这个问题的
帮你顶一下

cyber-bobo

不是，删除运用这个函数的字段或将查询结果先导入一个临时表就会很快。主要在于运用这个函数的查询是基于一个查询表A，而查询表A又可能是基于另一查询表B的。

cyber-bobo

是的，查询中有求和的字段，那样就非要先导入一个临时表，再根据这个临时表进行查询吗？没有别的办法吗？上面这段代码没问题吗？

andymark

语句没什么问题，建议直接用SQL代替查询，或优化一下查询，自已搞不掂的就上传例子吧

tmtony

RS记录集使用只读打开试试,另外如果中间查询每次都要计算很久,可使用临时表来加快速度