Access中查询某个分组中多行字段值的拼接字串的方法

access的SQL语法中没有自定义函数，不能像在SQL Server中一样使用变量、游标、子查询等方法灵活处理查询语句。

但是在Access环境下，通过模块中的流程，可以使用功能强大的VB语言生成需求复杂的查询语句。

以下是我自己今天在Access板块的回复。通过这个例子，简要说明了Access依托VB的强大功能。

网友:
-。1公司小王男
1公司小李女
2公司小张男
我想把同一个公司的内容组合起来，比如:
comname性别
1公司小王，小李男，女
2公司小张男。

请问如何在access中操作？有什么好的处理方法吗？？
-

回答:
-。

公共函数CombStr(TableName为字符串，FieldName为字符串，GroupField为字符串，GroupValue为字符串)为字符串

Dim ResultStr As String
Dim RS As Recordset
Set RS = CurrentDb。open recordset(" select " & field name & " from " & TableName & " where " & group field & " = ' " & group value & " ' ")
If RS。RecordCount > 0，则
Do While Not rs。EOF
ResultStr = ResultStr & "，" & rs。字段(0)。价值
卢比。MoveNext
Loop
End If
If ResultStr " " Then ResultStr = Mid(ResultStr，2)
CombStr = ResultStr

End函数

建立查询:

通过T.comname从T
组中选择t.comname，combstr("T "，" name "，" comname "，t.comname)作为CombName，combstr("T "，" ses "，" comname "，T.comname)作为comb sex

-