- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 数据转换问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186566)
-- 发布时间：2023/5/12 15:02:00
-- 数据转换问题
希望将其转换为表B，结构为：
<!--[if gte vml 1]>
<!--[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编辑过]
-- 发布时间：2023/5/12 15:15:00
--
补充：要转换表AA的审核=未审核的数据
-- 发布时间：2023/5/12 15:27: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))
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").select("姓名=\'" & v & "\' and 审核=‘未审核’")
dr1(dr2("课程") & "_分数") = dr2("分数")
dr1(dr2("课程") & "_实际") = dr2("实际")
Next
Next
MainTable = Tables("表B")
-- 发布时间：2023/5/12 15:50:00
--
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,窗口2,Button3,Click
详细错误信息：
未找到列 [‘未审核’]。
报错，
表A是有审核列
-- 发布时间：2023/5/12 15:57:00
--
调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错
-- 发布时间：2023/5/12 16:19:00
--
此主题相关图片如下：数据转换1.jpg
Dim dtb As New DataTableBuilder("表B")
dtb.AddDef("姓名", GetType(String), 32)
如何让空白的数据补上，实现1楼的图
-- 发布时间：2023/5/12 16:22:00
--
问题二：1楼的图，基表转换为，转换后表也是正表，不是临时，如何实现？
-- 发布时间：2023/5/12 16:44:00
--
自己加上日期列赋值的代码即可
主表只能预先创建好，无法使用代码创建
-- 发布时间：2023/5/12 16:46:00
--
MainTable = Tables("表B")改为下面，无报错，但无数据
Tables("行转列_表B").DataSource = dtb.BuildDataSource()
是想把结果在窗口上的表显示，如何实现？
-- 发布时间：2023/5/12 16:49:00
--
贴出完整代码