[求助]另类查询，如何写？

新建VBA函数：

Public Function 获取仓库(ByVal 合同号) As String
    Dim oRs As New ADODB.Recordset
    Dim strSQL As String
    Dim ret As String
   
    strSQL = "SELECT DISTINCT 合同.库点 FROM 合同 WHERE 合同号='" & 合同号 & "'"
    Set oRs = CurrentProject.Connection.Execute(strSQL)
    ret = oRs.GetString(, , , ",")
    If Right(ret, 1) = "," Then ret = Left(ret, Len(ret) - 1)
    获取仓库 = ret
    oRs.Close
    Set oRs = Nothing
End Function

再建一汇总查询：

SELECT 合同号, Sum(付款) AS 总付款, 获取仓库(合同号) AS 仓库
FROM 合同
GROUP BY 合同号, 获取仓库(合同号);

运行查询的结果：