[求助]报表多层表头 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

么有看到有删除列的代码，看7楼红色部分代码，判断自己那一列不需要，进行删除

Sheet.Cols.RemoveAt(4) ‘删除第4列’
Sheet.Cols.RemoveAt(2)

额，那个我已经尝试过了。数据会发生错乱的。首层表头那一列不会删除。

我打开基本功能演示文件，利用其中的多层表头这个表进行测试，在命令窗口输入下面的代码测试：

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(2)
Book.Save("c:\reports\test.xls")
Dim Proc As New Process
Proc.File = "c:\reports\test.xls"
Proc.Start()

没有发现问题啊

不行就做个例子上来嘛

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

表A的工作窗口中有个生成按钮。里面是我的代码。里面是添加了删除列后的代码。

Dim dt As Table = Tables("表A")

Dim hdr As Integer = dt.HeaderRows

Dim cnt As Integer

Dim Book As New XLS.Book() '定义一个Excel工作簿

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

Dim Style As XLS.Style = Book.NewStyle() '定义新样式

Dim St1 As xls.style = book.newstyle

Dim St2 As xls.style = book.newstyle

dt.CreateSheetHeader(Sheet,1)

St2.BorderTop = XLS.LineStyleEnum.Thin

St2.BorderBottom = XLS.LineStyleEnum.Thin

St2.BorderLeft = XLS.LineStyleEnum.Thin

St2.BorderRight = XLS.LineStyleEnum.Thin

St2.BorderColorTop = Color.black

St2.BorderColorBottom = Color.black

St2.BorderColorLeft = Color.black

St2.BorderColorRight = Color.black

St2.Format = "yyyy-MM-dd"

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,2).Value = "滨湖热力厂节能空间管理"

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 9

If c=1 Then

Sheet(r,c).Style = St2

Else

Sheet(r,c).Style = Style

End If

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)

cnt = cnt + 1

End If

Sheet.Cols.RemoveAt(0)

'Book.Build()

Dim dlg As New SaveFileDialog '定义一个新的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

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