Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据转换问题


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

主题：数据转换问题
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		数据转换问题  发帖心情 Post By：2023/5/12 15:02:00 [显示全部帖子]

希望将其转换为表B，结构为：

<!--[if gte vml 1]> <![endif]--><!--[if !vml]--><!--[endif]-->

转换代码为：

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("课程")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("姓名")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("姓名") = v
    For Each dr2 As DataRow In DataTables("表A").DataRows
        If dr2("姓名") = v Then
            dr1(dr2("课程")) = dr2("分数")
        End If
    Next
Next
MainTable = Tables("表B")


如何实现图示？






[此贴子已经被作者于2023/5/12 20:15:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/5/12 15:15:00 [显示全部帖子]

补充：要转换表AA的审核=未审核的数据

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/5/12 15:50:00 [显示全部帖子]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,窗口2,Button3,Click
详细错误信息：
未找到列 [‘未审核’]。
报错，

表A是有审核列
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/5/12 16:19:00 [显示全部帖子]



此主题相关图片如下：数据转换1.jpg
按此在新窗口浏览图片


Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("日期", GetType(Date))
dtb.AddDef("班级", GetType(String), 32)

dtb.AddDef("姓名", GetType(String), 32)

如何让空白的数据补上，实现1楼的图
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/5/12 16:22:00 [显示全部帖子]

问题二：1楼的图，基表转换为，转换后表也是正表，不是临时，如何实现？

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/5/12 16:46:00 [显示全部帖子]

MainTable = Tables("表B")改为下面，无报错，但无数据
Tables("行转列_表B").DataSource = dtb.BuildDataSource()

是想把结果在窗口上的表显示，如何实现？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/5/12 16:58:00 [显示全部帖子]

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("日期", GetType(Date))

For Each v As String() In DataTables("表AA").GetValues("班级|姓名|日期")

"日期"是日期型，黄字是字符，测试一下没报错，也能执行，正常情况，好象日期型这里要做转换，后续会不会出错，是不是做转换比较好，怎么做？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2023/5/12 17:10:00 [显示全部帖子]

Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("表A").GetValues("课程")
    dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetValues("姓名")
    Dim dr1 As DataRow = DataTables("表B").AddNew()
    dr1("姓名") = v
    For Each dr2 As DataRow In DataTables("表A").DataRows
        If dr2("姓名") = v Then
            dr1(dr2("课程")) = dr2("分数")
        End If
    Next
Next
MainTable = Tables("表B")
MainTable = Tables("窗口_表B")
MainTable = Tables("表B")改为下面，无报错，但无数据
Tables("行转列_表B").DataSource = dtb.BuildDataSource()
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06250 秒, 5 次数据查询