主题：新建表在窗口中不显示

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