基于模版生成报表出错提示为:无法在流的结尾之外进行读取为什么???昨晚我还运行得了,就只是在模版加了几列后合并,今早就出错了,
第一行就出错了?????程序没改过
Dim Book As New XLS.Book(ProjectPath & "Attachments\xm.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Dim r As Row = Tables("项目总览").current
If r IsNot Nothing Then
Sheet(0, 0).Value = "" & "" & r("LCD型号V模组型号") & "" & "项目进阶流程" & ""
Dim Style As XLS.Style = Book.NewStyle
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
style.font = New Font("宋体", 11, FontStyle.Bold)
Sheet(0,0).Style = Style