以下是引用e-png在2011-12-18 20:52:00的发言:
只是学习,没有做什么 ^_^.
这段代码,可以将表A转化成表B,呵呵
Dim dtb As New
DataTableBuilder("表B")
dtb.AddDef("姓名", Gettype(String), 32)
For Each v As String In DataTables("表A").GetUniqueValues("","课程")
dtb.AddDef(v, Gettype(Double))
Next
dtb.Build()
For Each v As String In DataTables("表A").GetUniqueValues("","姓名")
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")