sql:
SELECT model, specify, modelID, ff(model,specify)
FROM qryModelDetail
GROUP BY model, specify, modelID;
模块:
Function ff(ByVal dd1 As String, ByVal dd2 As String) As String
Set dd = CurrentDb.OpenRecordset("select * from qryModelDetail where model='" & dd1 & "' and specify='" & dd2 & "'")
Do While Not dd.EOF
ee = ee & dd("batteryNum") & "-" & dd("batteryModel") & "+"
dd.MoveNext
Loop
ff = Left(ee, Len(ee) - 1)
End Function