以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]垂直转水平的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=109371)
--  作者：yhd1981
--  发布时间：2017/11/10 14:24:00
--  [求助]垂直转水平的问题
直接举例吧：
学号 姓名 选修课程
0001 张三 高数
0001 张三 金融
0002 李四 微积分
0002 李四 英语
0002 李四 古代文学
上面的表怎么改成：
学号 姓名 选修课程
0001 张三 高数 金融
0002 李四 微积分 英语 古代文学
类似即可  一行即可汇总显示选修课程？
 甜版 谢谢
--  作者：有点甜
--  发布时间：2017/11/10 14:28:00
--  

 你这个就是跨表统计而已。

 

1、http://www.foxtable.com/webhelp/scr/1435.htm

 

2、http://www.foxtable.com/webhelp/scr/0681.htm

 
--  作者：yhd1981
--  发布时间：2017/11/10 14:59:00
--  
甜版，能不能明示一下，看示例不是很理解图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看
--  作者：有点甜
--  发布时间：2017/11/10 15:45:00
--  
Dim dtb As New DataTableBuilder("表d")
dtb.AddDef("学号", Gettype(String), 32)
dtb.AddDef("姓名", Gettype(String), 32)
dtb.AddDef("课程", Gettype(String), 999)
dtb.Build()
For Each v() As String In DataTables("表c").GetValues("学号|姓名")
    Dim dr1 As DataRow = DataTables("表d").AddNew()
    dr1("学号") = v(0)
    dr1("姓名") = v(1)
    dr1("课程") = DataTables("表C").GetComboListString("课程", "学号=\'" & v(0) & "\' and 姓名=\'" & v(1) & "\'")
Next
MainTable = Tables("表d")
--  作者：yhd1981
--  发布时间：2017/11/10 20:21:00
--  
厉害了甜版 搞定