把设置放到合并前
Dim dt As Table = Tables("固定资产明细表")
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim c1 As String = e.Form.Controls("DateTimePicker1").value
Dim c2 As String = c1.SubString(0,4) & " 年 " & c1.SubString(5,2) & " 月 "
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Dim Style1 As XLS.Style = Book.NewStyle()
Dim Style2 As XLS.Style = Book.NewStyle()
style2.Format = "0.00"
Sheet.Rows(0).Height = 40 '第一行高设为40
sheet.Cols(8).Style = style2 '设第9列保留2位小数 ####这行代码设定后出现第一行和每二行合并单元格从原来的a-o的合并,增加到a-r的合并?????
sheet.Cols(11).Style = style2
sheet.Cols(12).Style = style2
sheet.Cols(13).Style = style2
Sheet.MergeCell(0,0,1,10) '合并第一行共15列
Sheet(0,0).Value = "固 定 资 产 明 细 表"
sheet.MergeCell(1,0,1,10) '合并第二行共15列
sheet(1,0).value = c2
……
加好友 
发短信
Post By：2018/12/14 20:58:00 [显示全部帖子]
