如何在查询中实现多行结果的合并显示

djt

只能写个字符串累加函数来解决
Leijia:
        Dim strRsFilter As String
        Dim strLeijia As String
        With frm.RecordsetClone
                If .RecordCount < 1 Then GoTo exitFunction
                .MoveFirst
                Do Until .EOF
                        strLeijia = ""
                        strRsFilter = ""
                        For lngfield = 1 To UBound(arrField)
                                If arrField(lngfield, 3) = "chr" Then arrField(lngfield, 3) = "'"
                                strRsFilter = strRsFilter & arrField(lngfield, 5) & arrField(lngfield, 1) & arrField(lngfield, 2) & arrField(lngfield, 3) & .Fields(arrField(lngfield, 4)) & arrField(lngfield, 3)
                        Next
                        rs.Filter = strRsFilter
                        If rs.RecordCount >= 1 Then
                        Do Until rs.EOF
                                strLeijia = strLeijia & rs.Fields(arrField(0, 4)) & IIf(arrField(0, 5) = "vbcrlf", vbCrLf, arrField(0, 5))
                                rs.MoveNext
                        Loop
                        .Edit
                        .Fields(arrField(0, 1)) = strLeijia
                        .Update
                        End If
                        .MoveNext
                Loop
                frm.Form.Requery
        End With
        rs.Close

djt

还有一种变通方法用一个transform变形查询，然后再正常查询

djt

SchoolClass        StudentName        Fenshu
1        a1        1
2        a2        1
3        a3        1
4        a4        1
1        b1        2
2        b2        2
3        b3        2
4        b4        2
1        c1        3
2        c2        3
3        c3        3
1        d1        4
2        d2        4
3        f1        5
4        f2        6
然后做一个变形查询
TRANSFORM First(StudentName & ',') AS Expr1
SELECT fenshu.SchoolClass
FROM fenshu
GROUP BY fenshu.SchoolClass
PIVOT 'F' & Fenshu;
然后再从变形查询里把字段合并
select Schoolclass,f1&f2&f3&f4&f5&f6 from 变形查询
结果如下
Schoolclass        Expr1001
1        a1,b1,c1,d1,
2        a2,b2,c2,d2,
3        a3,b3,c3,f1,
4        a4,b4,f2,