以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新建表在窗口中不显示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185993)
--  作者：njzwm
--  发布时间：2023/3/30 13:32:00
--  新建表在窗口中不显示
请教老师：我新建了一个表，但是在窗口中的"电子琴谱_Table1"却不显示，而是单独生成一个表，这是什么原因？

语句如下：
Dim dtb As New DataTableBuilder("电子琴谱_Table1")
dtb.AddDef("统一编号", GetType(String), 32)
For Each v As String In DataTables("电子琴谱目录").GetValues("集")
    dtb.AddDef(v, GetType(String))
Next
dtb.Build()
For Each v As String In DataTables("电子琴谱目录").GetValues("统一编号")
    Dim dr1 As DataRow = DataTables("电子琴谱_Table1").AddNew()
    dr1("统一编号") = v
    For Each dr2 As DataRow In DataTables("电子琴谱目录").DataRows
        If dr2("统一编号") = v Then
            dr1(dr2("集")) = dr2("统一歌名")
        End If
    Next
Next

Tables("电子琴谱_Table1").DataSource = dtb.BuildDataSource()
--  作者：有点蓝
--  发布时间：2023/3/30 13:39:00
--  
语句如下：
Dim dtb As New DataTableBuilder("电子琴谱_Table1")
dtb.AddDef("统一编号", GetType(String), 32)
For Each v As String In DataTables("电子琴谱目录").GetValues("集")
    dtb.AddDef(v, GetType(String))
Next
Tables("电子琴谱_Table1").DataSource = dtb.BuildDataSource()
For Each v As String In DataTables("电子琴谱目录").GetValues("统一编号")
    Dim dr1 As DataRow = DataTables("电子琴谱_Table1").AddNew()
    dr1("统一编号") = v
    For Each dr2 As DataRow In DataTables("电子琴谱目录").DataRows
        If dr2("统一编号") = v Then
            dr1(dr2("集")) = dr2("统一歌名")
        End If
    Next
Next
--  作者：njzwm
--  发布时间：2023/3/30 14:02:00
--  
谢谢兰老师闪电回复！