方法一：分组+标签

http://www.foxtable.com/webhelp/scr/1542.htm

http://www.foxtable.com/webhelp/scr/1414.htm

方法二：生成一个统计表

Dim dtb As New DataTableBuilder("统计")
dtb.AddDef("学号", Gettype(String), 16)
dtb.AddDef("姓名", Gettype(String), 16)
dtb.AddDef("课程名称1", Gettype(String))
dtb.AddDef("课程名称2", Gettype(String))
dtb.AddDef("课程名称3", Gettype(String))
dtb.Build()
For Each nm() As String In DataTables("成绩").GetValues("学号|姓名")
    Dim dr As DataRow = DataTables("统计").AddNew()
    dr("学号") = nm(0)
    dr("姓名") = nm(1)
    Dim drs = DataTables("成绩").GetValues("课程名称","学号 = \'" & nm(0) & "\' And 姓名 = \'" & nm(1) & "\'")
    For i As Integer = 0 To drs.count-1
        dr("课程名称" & i+1)= drs(i)
    Next
Next
MainTable= Tables("统计")

单独做一个按钮

http://www.foxtable.com/webhelp/scr/0213.htm