以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多行合并为一行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185476)

--  作者:lihe60
--  发布时间:2023/2/25 10:25:00
--  多行合并为一行
上表为数据库,下表为要生成的excel表,如何实现。
图片点击可在新窗口打开查看此主题相关图片如下:无标题.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/2/25 10:45:00
--  
http://www.foxtable.com/webhelp/topics/1530.htm
--  作者:lihe60
--  发布时间:2023/2/25 10:59:00
--  
科目和分数要在同一个单元格中。
--  作者:有点蓝
--  发布时间:2023/2/25 11:24:00
--  
Dim Book As New XLS.Book \'定义一个Excel工作簿
Dim
 Sheet As XLS.Sheet = Book.Sheets(0\'引用工作簿的第一个工作表
For c As Integer = 0 To datatables("A").Cols.Count -1 \'添加列标题
    Sheet(0, c).Value = dt.Cols(c).Name
Next

dim m as inreger = 1
For
 each s as string in datatables("A").getvalues("姓名")
    Sheet(m, 
0).Value = s
    Sheet(m, 1).Value = datatables("A").GetComboListString("科目",“姓名=‘“ & s & ”’”).replace("|",vbcrlf)
m=m+1
Next

Book.Save(
"c:\\reports\\test.xls"\'保存工作簿

--  作者:lihe60
--  发布时间:2023/2/25 11:58:00
--  
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()
--  作者:lihe60
--  发布时间:2023/2/25 11:58:00
--  
这个代码如何改?
--  作者:有点蓝
--  发布时间:2023/2/25 13:32:00
--  
表结构和数据是怎么样的
--  作者:lihe60
--  发布时间:2023/2/25 13:37:00
--  
1楼
--  作者:有点蓝
--  发布时间:2023/2/25 13:41:00
--  
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)
For c As Integer = 0 To t0.Cols.Count -1 \'添加列标题
    Sheet(0, c).Value = t0.Cols(c).Name
Next

dim m as inreger = 1
For
 each s as string in 
t0.datatable.getvalues("姓名")
    Sheet(m, 0).Value = s
    Sheet(m, 1).Value = t0.datatable.GetComboListString("科目",“姓名=‘“ & s & ”’”).replace("|",vbcrlf)
m=m+1
Next
Book.Save("c:\\reports\\test.xls")

--  作者:lihe60
--  发布时间:2023/2/25 21:34:00
--  
请上传一个案例

[此贴子已经被作者于2023/2/25 21:36:42编辑过]