请教，如何建立连接字符串的查询？

jakyky

请教各位大神，如何实现如下图的效果？

roych

http://www.office-cn.net/forum.p ... 4%BB%D8%D5%DB%CC%DA

jakyky

谢谢Roych提供的链接，如果我要建立查询呢，有办法实现吗？谢谢了。

bbpst

学习

Henry D. Sy

jakyky 发表于 2011-12-22 15:26
谢谢Roych提供的链接，如果我要建立查询呢，有办法实现吗？谢谢了。

可以，但要定义函数

jakyky

想了个这样的函数，初步实现

Function Jointxt(ByVal aa As String, ByVal dd As String, ByVal cc As Variant) As String
   Dim f1 As String
    f1 = ""
    Set rs = CurrentDb.OpenRecordset("select " & aa & " from " & dd & " where " & cc)
    Do While Not rs.EOF
        f1 = f1 & rs(0) & ", "
        rs.MoveNext
    Loop
  Jointxt = Left(f1, Len(f1) - 2)
End Function