以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教下关于字符串拼接的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=98044)
--  作者：lhp512
--  发布时间：2017/3/23 10:52:00
--  请教下关于字符串拼接的问题
老师好，我请教个问题，我想实现的功能如下，表格中有如下的数据
部门编号 姓名
    1 aa
    1 bb
    2 ccc
    2 dd
    2 ee
我想查出这样的一个结果
   1 aa,bb
   2 cc,dd,ee
在网上查了一些方法，sql可以通过stuff实现，但access不适用，在网上找到的access适用的函数，在咱们的软件中编译不过，想问下老师有什么好的方法
[此贴子已经被作者于2017/3/23 10:53:16编辑过]
--  作者：有点色
--  发布时间：2017/3/23 11:23:00
--  

 用代码处理

 

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("第一列", Gettype(String), 32)
dtb.AddDef("第二列", Gettype(String), 999)
dtb.Build()
Dim dt As DataTable = DataTables("统计")
For Each s As String In DataTables("表A").GetValues("第一列")
    Dim ndr As DataRow = dt.AddNew
    ndr("第一列") = s
    ndr("第二列") = DataTables("表A").GetComboListString("第二列", "第一列 = \'" & s & "\'").replace("|", ",")
Next