数据转换问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

转换代码为：

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编辑过]

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

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))

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("实际")

MainTable = Tables("表B")

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：窗口,窗口2,Button3,Click

详细错误信息：

未找到列 [‘未审核’]。

报错，

表A是有审核列

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm，看哪一句代码出错

此主题相关图片如下：数据转换1.jpg

Dim dtb As New DataTableBuilder("表B")

dtb.AddDef("日期", GetType(Date))

dtb.AddDef("班级", GetType(String), 32)

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

如何让空白的数据补上，实现1楼的图

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

自己加上日期列赋值的代码即可

主表只能预先创建好，无法使用代码创建

MainTable = Tables("表B")改为下面，无报错，但无数据

Tables("行转列_表B").DataSource = dtb.BuildDataSource()

是想把结果在窗口上的表显示，如何实现？

主题：数据转换问题