请教~交叉表

循环查询的字段名即可。

'函数用途：取查询中的所有字段名，返回一个代表用(;)号分隔的字段名字符串
Public Function GetQueryFieldList(QueryName As String) As String 
    Dim dbs: Set dbs = CurrentDb
    Dim fld:
    For Each fld In dbs.QueryDefs(QueryName).Fields
        GetQueryFieldList = GetQueryFieldList & ";" & fld.Name
    Next
    GetQueryFieldList = Mid(GetQueryFieldList,2)
End Sub

'用这个函数调用就行了：

strTemp = GetQueryFieldList("交叉表查询1")