Foxtable(狐表)用户栏目专家坐堂 → 新建表在窗口中不显示


  共有3489人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
njzwm
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:328 积分:2911 威望:0 精华:0 注册:2015/8/22 20:07:00
新建表在窗口中不显示  发帖心情 Post By: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()

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110554 积分:562660 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:328 积分:2911 威望:0 精华:0 注册:2015/8/22 20:07:00
  发帖心情 Post By:2023/3/30 14:02:00 [只看该作者]

谢谢兰老师闪电回复!

 回到顶部