再请教连接列数据的问题！

sxgaobo

请教各位高手，如何能将‘姓名’列的数据按单位分类连接？

即：A单位的姓名连接在一起，B单位的姓名连接在一起，

结果：A单位的， A1、A2、A3

          B单位的，b1、b2、b3、b4

andymark

  重写DLINK

sxgaobo

谢谢斑竹~~！！！！！！

精通代码就是厉害啊，佩服！佩服！！佩服！！！

frankonlee

看了，写得不错，确实是XX！

sxgaobo

斑竹，不好意思！又要麻烦您了！！！

连接的字符数只能小于250个，超出了就不显示了，如何处理啊？

andymark

不会到了极限吧,名字栏改成备注行不行

sxgaobo

就是备注的啊！

sxgaobo

Function StrLin(STab, StrZd As String) As String
Dim S, E, N As Integer
Dim SStr, Stem As String

S = DMin("[ID]", STab)
E = DMax("[ID]", STab)
For N = S To E
    Stem = DLookup(StrZd, STab, "[id]=" & N)
    SStr = SStr + Stem + "、"

Next N
StrLin = SStr
End Function

论坛里找的这方法可以连接大量的数据，可我不会分组，斑竹帮忙给看看好吗？

andymark

FUCTION不能直接用,还须要改改,把你的例子简化传上来,我试试是怎样的情况

sxgaobo

有劳斑竹了！！！