主题：[求助]报表多层表头

在报表编程的自动生成表头中。可不可以自己筛选某一些列显示，而不要全部可见列显示出来？

  你代码怎么写的？贴出代码，或者做实例发上来。

Dim dt As Table = Tables("T222") Dim hdr As Integer = dt.HeaderRows Dim cnt As Integer Dim Book As New XLS.Book() Dim Sheet As XLS.Sheet = Book.Sheets(0) Dim Style As XLS.Style = Book.NewStyle() Dim St1 As xls.style = book.newstyle dt.CreateSheetHeader(Sheet,1,0) Style.BorderTop = XLS.LineStyleEnum.Thin Style.BorderBottom = XLS.LineStyleEnum.Thin Style.BorderLeft = XLS.LineStyleEnum.Thin Style.BorderRight = XLS.LineStyleEnum.Thin Style.BorderColorTop = Color.black Style.BorderColorBottom = Color.black Style.BorderColorLeft = Color.black Style.BorderColorRight = Color.black Sheet(0,9).Value = "打印日期:" & Format(Date.Today, "yyyy年MM月dd日") St1.FontBold = True Sheet(0,2).Style = St1 For r As Integer = 1 To 6 For c As Integer =1 To 21 Sheet(r,c).Style = Style Next Next For c As Integer = 0 To dt.Cols.Count - 1 If dt.Cols(c).Visible Then For r As Integer = 0 To dt.Rows.Count - 1 sheet(r + hdr+1,cnt).value = dt(r,c) Next cnt = cnt + 1 End If Next Book.Build() Dim dlg As New SaveFileDialog dlg.Filter= "Excel文件|*.xls" If dlg.ShowDialog = DialogResult.Ok Then Book.Save(dlg.FileName) Dim Proc As New Process Proc.File = dlg.FileName Proc.Start() End If
此主题相关图片如下：f@k}4sqauu88)v`6fu}rk9.png

Dim dt As Table = Tables("T222") Dim hdr As Integer = dt.HeaderRows Dim cnt As Integer Dim Book As New XLS.Book() Dim Sheet As XLS.Sheet = Book.Sheets(0) Dim Style As XLS.Style = Book.NewStyle() Dim St1 As xls.style = book.newstyle dt.CreateSheetHeader(Sheet,1,0) Style.BorderTop = XLS.LineStyleEnum.Thin Style.BorderBottom = XLS.LineStyleEnum.Thin Style.BorderLeft = XLS.LineStyleEnum.Thin Style.BorderRight = XLS.LineStyleEnum.Thin Style.BorderColorTop = Color.black Style.BorderColorBottom = Color.black Style.BorderColorLeft = Color.black Style.BorderColorRight = Color.black Sheet(0,9).Value = "打印日期:" & Format(Date.Today, "yyyy年MM月dd日") St1.FontBold = True Sheet(0,2).Style = St1 For r As Integer = 1 To 6 For c As Integer =1 To 21 Sheet(r,c).Style = Style Next Next For c As Integer = 0 To dt.Cols.Count - 1 If dt.Cols(c).Visible Then For r As Integer = 0 To dt.Rows.Count - 1 sheet(r + hdr+1,cnt).value = dt(r,c) Next cnt = cnt + 1 End If Next Book.Build() Dim dlg As New SaveFileDialog dlg.Filter= "Excel文件|*.xls" If dlg.ShowDialog = DialogResult.Ok Then Book.Save(dlg.FileName) Dim Proc As New Process Proc.File = dlg.FileName Proc.Start() End If

可以看看这里的示例二：

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

 

这个里面没有多层表头的设置勒。如果在多层表头里面呢？我昨天设置过，好像它是把全部表头都显示出来了

你可以先常规生成，生成后再删除多余的列：

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

例如生成后，删除对于的第5列和第3列：

Dim tbl As Table = Tables("订单")
Dim hdr As Integer = tbl.HeaderRows '获得表头的层数
Dim cnt As Integer
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet) '生成表头
For c As Integer = 0 To tbl.Cols.Count - 1
    If tbl.Cols(c).Visible Then
        For r As Integer = 0 To tbl.Rows.Count - 1
            sheet(r + hdr,cnt).value = tbl(r,c)
        Next
        cnt = cnt + 1
    End If
Next
Sheet.Cols.RemoveAt(4)
Sheet.Cols.RemoveAt(2)
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

注意先删除靠后的列

您好 我试过之后，它的第一层表头就是最上面那一个，不会跟着删除列，导致数据对应错乱了

贴出代码

Dim dt As Table = Tables("T222")