目前将上述模版利用下述代码操作后，还是没有实现当考评项是空白的时候，直接将考评类别与考评项合并，并只显示考评类别内容。Dim Book As New XLS.Book(ProjectPath & "Attachments\考评表.xls") '打开模板
Dim fl As String = ProjectPath & "Reports\考评表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
按照有点甜老师的提示，这里应该有遍历所有行的代码“”“”“”“”“
Sheet.MergeCell(5,2,2,2)
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
红色部分怎么写遍历呢？当考评项是空白的时候，直接将考评类别与考评项合并，并只显示考评类别内容。
对应参照写成如下：
Dim Book As New XLS.Book(ProjectPath & "Attachments\考评表.xls")
Dim fl As String = ProjectPath & "Reports\考评表.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For Each dr1 As DataRow In DataTables("考评项").DataRows
If dr1.IsNull("考评项") = True Then
Sheet.MergeCell(5,2,1,1)
Sheet.MergeCell(6,2,1,1)
End If
Next
Book.Build() '生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()
结果还是不能达到一楼图片表格效果，实现当考评项是空白的时候，直接将考评类别与考评项合并，并只显示考评类别内容。
麻烦有点甜老师帮我修整一下 谢谢！
[此贴子已经被作者于2017/7/27 15:47:17编辑过]
加好友 
发短信
Post By：2017/7/27 11:01:00 [显示全部帖子]
此主题相关图片如下：1.png
