希望将其转换为表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编辑过]