以文本方式查看主题

-  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=97272)

--  作者:cuicuibing
--  发布时间:2017/3/9 7:50:00
--  表的请教
表的样式如下:

表a:
第一列  第二类  第三列  第四列  第五列  
a001    b012   c001   d010   e006
表b
第一列  第二类  第三列  第四列  第五列  
b012     的       号          吃      五
表c
第一列  第二类  第三列  第四列  第五列  
c001     王        刘        找       吗
表d
第一列  第二类  第三列  第四列  第五列  
d010     想        赛       了        额
表e
第一列  第二类  第三列  第四列  第五列  
e006     箱        好        聊聊   我

通过表a,如何生成 , 表b,表c,表d,表e   的组合表。有哪几种方式。    sql数据库。

--  作者:有点蓝
--  发布时间:2017/3/9 8:39:00
--  
生成的逻辑是什么?
--  作者:cuicuibing
--  发布时间:2017/3/9 9:01:00
--  
表a第一列等于 a001

表b.第一列 = 表a.第二列
表c.第一列 = 表a.第三列
表d.第一列 = 表a.第四列
表e.第一列 = 表a.第五列

组合为一行数据



--  作者:有点蓝
--  发布时间:2017/3/9 9:28:00
--  
Dim t As Table = Tables("表A")
Dim r As Row = t.Current
If r IsNot Nothing Then
    Dim r2 As Row
    Dim tbarr() As String = {"表B","表C","表D"}
    For i As Integer = 0 To tbarr.Length - 1
        r2 = Tables(tbarr(i)).AddNew
        r2("第一列") = r(t.Cols(i+1).Name)
    Next
End If