如何将表B的列标题写入到表A的第一行? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将表B的列标题写入到表A的第一行?

共有25277人关注过本帖树形打印复制链接主题：如何将表B的列标题写入到表A的第一行?

migold

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00

Post By：2009/8/13 11:37:00 [显示全部帖子]

我参考楼主的代码：
改成这样：
Dim tt1 as string
Dim tt2 as string
For Each c As DataCol In DataTables("表B").DataCols
      tt1 = tt1 & "|" & c.name
      tt2 = tt2 & "|" & c.Caption
Next
Dim Values1() as String
Dim Values2() as String
Values1 = tt1.split("|")
Values2 = tt2.split("|")
Dim dr1 As DataRow = DataTables("表A").AddNew()
Dim dr2 As DataRow = DataTables("表A").AddNew()
Dim n as integer
For Each cl As DataCol In DataTables("表A").DataCols
    IF Values1.Length > (n+1) Then
        dr1(cl)=tt1.split("|")(n+1)
        dr2(cl)=tt2.split("|")(n+1)
        n=n+1
    ELSE
        dr1(cl)=Nothing
        dr2(cl)=Nothing
    END IF
Next

migold

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：447 积分：4572 威望：0 精华：0 注册：2009/1/11 11:00:00

Post By：2009/8/13 11:39:00 [显示全部帖子]

类似：

For Each dt As DataTable In DataTables

For Each dc As DataCol In dt.DataCols

Dim dr As DataRow = DataTables("表A").AddNew()

dr("表名")=dt.Name

dr("表标题")=dt.caption

dr("列名")=dc.Name

dr("列标题")=dc.caption

如果是：一次就把项目中所有表名、表标题、列名、列标题全部填入到表A，请问怎样改写以下代码Dim tt1 as string
Dim tt2 as string
For Each c As DataCol In DataTables("表B").DataCols
      tt1 = tt1 & "|" & c.name
      tt2 = tt2 & "|" & c.Caption
Next
Dim Values1() as String
Dim Values2() as String
Values1 = tt1.split("|")
Values2 = tt2.split("|")
Dim dr1 As DataRow = DataTables("表A").AddNew()
Dim dr2 As DataRow = DataTables("表A").AddNew()
Dim n as integer
For Each cl As DataCol In DataTables("表A").DataCols
    IF Values1.Length > (n+1) Then
        dr1(cl)=tt1.split("|")(n+1)
        dr2(cl)=tt2.split("|")(n+1)
        n=n+1
    ELSE
        dr1(cl)=Nothing
        dr2(cl)=Nothing
    END IF
Next