遍历每行

Question

我展示了基于该SQL访问报表行：

SELECT DISTINCT Plan_charge.Num_utilisateur, RecupProjet(Num_utilisateur) AS LesProjets 
FROM Plan_charge; 

在VBA函数“RecupProjet”是：

Public Function RecupProjet(Num_utilisateur As String) As String 

Dim res As DAO.Recordset 
Dim SQL As String 
'Selectionne les participant du projet 
SQL = "SELECT Num_EB_Tache FROM Plan_charge WHERE Num_utilisateur=" & _ 
      Chr(34) & Num_utilisateur & Chr(34) 
Set res = CurrentDb.OpenRecordset(SQL) 
'Concatene les différents enregistrement 
While Not res.EOF 
RecupProjet = RecupProjet & res.Fields(0).Value & " " 
res.MoveNext 
Wend 
'Enleve le dernier espace 
RecupProjet = Left(RecupProjet, Len(RecupProjet) - 1) 
'libere la mémoire 
Set res = Nothing 

End Function 

下面是一个简单的报告，我显示的代码如下：

现在我想用线达走线本报告中的TA，并根据（在SQL例如：WHERE Num_utilisateur = Me.Num_utilisateur.Value）列Num_utilisateur总的列（我的表Plan_charge的Total_charge），并把总在文本框中称为ChargeTotale。

你有什么想法吗？

Answer 1

我会做这种方式：

SELECT DISTINCT Plan_charge.Num_utilisateur, 
RecupProjet(Plan_charge.Num_utilisateur) AS LesProjets, T.ChargeTotale 
FROM Plan_charge INNER JOIN 
(SELECT Num_utilisateur, SUM(Total_charge) AS ChargeTotale 
FROM Plan_charge 
GROUP BY Num_utilisateur) T 
ON Plan_charge.Num_utilisateur = T.Num_utilisateur 

如果你不需要从Plan_charge任何其他领域，你可以只是做：

SELECT Num_utilisateur, RecupProjet(Num_utilisateur) AS LesProjets, 
SUM(Total_charge) AS ChargeTotale 
FROM Plan_charge 
GROUP BY Num_utilisateur, RecupProjet(Num_utilisateur)