主题：关于单元格，行，列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