关于按班级汇总发言内容

chinasa　发表于：2013-08-08 15:20:46 　

表1

ID	姓名	班级	发言
4	张三	1班	好好学习
5	李四	1班	天天向上
6	王二	2班	认真学习
7	赵五	1班	快乐学习

我需要的结果是：

班级发言

1班好好学习天天向上快乐学习

2班认真学习

说明：以班级来汇总发言内容，其中发言内容的顺序按照ID的顺序组合起来。

附件

Top

煮江品茶发表于：2013-08-08 15:48:14

Public Function GetTextList(ByVal str As String) As String
    '功能：返回列的合并文本
    '示例：select DISTINCT 班级,GetTextList([班级]) as 班级发言 from 表1
    Dim rs As New adodb.Recordset
    Dim ssql As String
    Dim i As leng
    Dim s As String

    ssql = "select * from 表1 where 班级='" & str & "'"
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    For i = 1 To rs.RecordCount
        s = s & rs!姓名.Value & ":" & rs!发言.Value & " "
        rs.MoveNext
    Next

rs.Close: Set rs = Nothing

GetTextList = s

End Function

Top

chinasa 发表于：2013-08-08 15:54:55

我试下看看，先谢啦

Top

chinasa 发表于：2013-08-08 16:02:48

请问为什么会提示：“表达式中 GetTextList函数未定义”

Top

chinasa 发表于：2013-08-08 16:10:00

我以前有一段类似的代码，但尝试改下几个字段或者复制到另一个数据库，但总是提示表达式XXXX函数未定义

Function GetCNTR(Company As String)
    Dim rs As New adodb.Recordset
    With rs
        .Open "Select * From 名单 where BL_NO='" & Company & "'", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
        Do While Not .EOF
            If Nz(GetCNTR) = "" Then
                GetCNTR = !CONTAINER_NO
            Else
                GetCNTR = GetCNTR & "," & !CONTAINER_NO
            End If
            .MoveNext
        Loop
    End With

End Function

Top

chinasa 发表于：2013-08-08 16:21:06

还有，我原先的这段代码效率很低，数据如果比较多的话，需要好几分钟才能出结果

Top

煮江品茶发表于：2013-08-08 19:47:25

放在标准模块中

Top

chinasa 发表于：2013-08-09 10:14:32

请帮助指点一下(关于类方面的知识我几乎为0)。感谢ing....

1. 为什么会提示 Dim rs As New adodb.Recordset 未定义。（我把代码复制到另一个库，不会提示这个错误）

2. 运行“TS_Y 查询1”会出错，如下图