主题：关于单元格，行，列style优先问题

Dim fl As String = ProjectPath & "Reports\订单.XLS"
Dim Book As New XLS.Book(fl)
Dim Sheet As XLS.Sheet = Book.Sheets(0)

 

For i As Integer = 0 To sheet.Rows.count - 1
    sheet.Rows(i).Height = 40
Next

Dim v As Integer = sheet.Rows(3).Height * 3/4
Dim fnt As New Font("黑体",v,FontStyle.regular)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.Font = fnt
For i As Integer = 0 To sheet.Rows.count - 1  
    'For c As Integer = 0 To sheet.Cols.count - 1
           'sheet(i,c).Style=Style  
    'Next    
sheet.rows(i).Style=Style  
Next
book.Save(fl)

 

上面这段代码，意图在于根据某行的height值改变相关单元格（或者行）的文字字号。

测试时手工修改蓝字行的数值观察代码是否起作用。

轮流注释掉红字部分和绿字部分的代码，发现绿字部分的代码不起作用（但也不会报错），有什么办法能让绿字部分的代码能其作用吗？最好是绿字和红字部分的代码能协调运行，以便更加灵活地控制报表的字体。

 

例子如下，请指教

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:例子.zip

样式都有优先级别,这个你既然自己测试知道了.还有必要问吗?

因为单元格的样式优先于行的样式，如果在excel中设置过单元格样式，或者用代码设置过单元格样式，行样式就不会生效的，这是没有办法的，一般只能逐个单元格设置样式。

 

那么有没有办法用代码清除所有单元格样式，然后再用代码重新逐个设置，就像先用datattables("表").loadfilter = ""先清除所有加载条件再重新设置加载条件一样？因为我发现就算是新建的Excel，行与列的style属性设置也不起作用。这样一来，行与列的style属性就成为一个摆设，但是有不少场合又确实需要这个功能。知识有限，可能我说错了，希望大家指正。

这个估计得循环一遍才能清楚样式,但是为什么要重新清除呢? 你本来就不要设置样式,然后根据需求使用代码设定不行吗?

呵呵，是的，循环清除单元格样式，不如循环给单元格指定样式。

那就只能循环设置了。谢谢哦！