主题：多行合并为一行

上表为数据库，下表为要生成的excel表，如何实现。
此主题相关图片如下：无标题.png

http://www.foxtable.com/webhelp/topics/1530.htm

科目和分数要在同一个单元格中。

Dim Book As New XLS.Book '定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表

Dim cmd As New sqlcommand
cmd.commandtext = "Sele\ct Distinct 科目, STUFF((Sel\ect ChAr(10)+ 姓名 FROM {班级} WH\ERE 科目 = T.科目 FOR XML PATH('')), 1, 1, '') AS Course FROM {g_业务} AS T"
e.Form.controls("table1").Table.datasource = cmd.executereader()

Dim t0 As Table = e.Form.controls("table1").Table
Dim hdr As Integer = t0.HeaderRows '获得表头的层数
Dim cnt As Integer
Dim Book As New XLS.Book 
Dim Sheet As XLS.Sheet = Book.Sheets(0)
t0.CreateSheetHeader(Sheet) '生成表头
For c As Integer = 0 To t0.Cols.Count - 1
    If t0.Cols(c).Visible Then
        For r As Integer = 0 To t0.Rows.Count - 1 
            sheet(r + hdr, cnt).value = t0(r, c) 
        Next
        cnt = cnt + 1
    End If
Next 
For Each c As Col In t0.Cols
    If c.name Like "*日期*" Then
        Dim St2 As XLS.Style = Book.NewStyle
        St2.Format = "yyyy-MM-dd"
        Sheet.Cols(c.Index).Style = st2
    End If
Next
'打开工作簿
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

这个代码如何改？

表结构和数据是怎么样的

1楼

Dim t0 As Table = e.Form.controls("table1").Table
Dim hdr As Integer = t0.HeaderRows '获得表头的层数
Dim cnt As Integer
Dim Book As New XLS.Book 
Dim Sheet As XLS.Sheet = Book.Sheets(0)

请上传一个案例