Spread8.0合并单元格后分页格式不正确

Spread8.0合并单元格后并且分页格式不正确，改如何设置才能正常显示？
VB.NET代码如下

1.    Public Sub ShowData()
   
2.         Dim maxRow = 100
   
3.         DetailSpread.Sheets(0).Rows.Add(0, maxRow)
   
4.         Label1.Text = String.Format("第{0}页", _pageNum)
   
5.         '模拟数据
   
6.         Dim dt As New DataTable
   
7.         dt.Columns.Add("ProjectID")
   
8.         dt.Columns.Add("VoNo")
   
9.         dt.Columns.Add("Description")
   
10. 
    
11.         Dim ProjectID As Integer = 1
    
12.         Dim VoNo As Integer = 1
    
13. 
    
14.         For i As Integer = 1 To maxRow
    
15.             If i Mod 5 = 0 Then
    
16.                 ProjectID += 1
    
17.                 VoNo += 1
    
18.             End If
    
19.             dt.Rows.Add("ProjectID" + Format(ProjectID, "000").ToString, "VoNo" + Format(VoNo, "000").ToString, "备注" + i.ToString)
    
20.         Next
    
21.         '数据绑定
    
22.         DetailSpread.DataSource = dt
    
23.         DetailSpread.DataBind()
    
24. 
    
25.         For x = 0 To dt.Rows.Count - 1
    
26.             Dim intCalc As Integer = 1
    
27.             For y = x To dt.Rows.Count - 2
    
28.                 '当ProjectID相同时
    
29.                 If DetailSpread.Cells(y, 1).Text = DetailSpread.Cells(y + 1, 1).Text Then
    
30.                     intCalc = intCalc + 1
    
31.                 Else
    
32.                     Exit For
    
33.                 End If
    
34.             Next
    
35.             '单元格合并
    
36.             CellCombination(DetailSpread.Cells(x, 0), intCalc, 1)
    
37.             x = x + intCalc - 1
    
38.         Next
    
39.         '分页
    
40.         DetailSpread.Sheets(0).PageSize = 20
    
41.         DetailSpread.Sheets(0).CurrentPageIndex = _pageNum - 1
    
42.     End Sub
    
43. 
    
44.     Public Shared Sub CellCombination(ByVal cell As Cell, ByVal rowSpan As Integer, ByVal colSpan As Integer)
    
45.         cell.RowSpan = rowSpan
    
46.         cell.ColumnSpan = colSpan
    
47.         cell.VerticalAlign = VerticalAlign.Middle
    
48.     End Sub

复制代码

第一页显示正常

第二页显示就不正常了（红框处）

这个合并是我看您代码里的逻辑 ，这里您需要调试下，看是不是逻辑有问题或者 CellCombination 这个方法里有问题

1.      For x = 0 To dt.Rows.Count - 1
   
2.             Dim intCalc As Integer = 1
   
3.             For y = x To dt.Rows.Count - 2
   
4.                 '当ProjectID相同时
   
5.                 If DetailSpread.Cells(y, 1).Text = DetailSpread.Cells(y + 1, 1).Text Then
   
6.                     intCalc = intCalc + 1
   
7.                 Else
   
8.                     Exit For
   
9.                 End If
   
10.             Next
    
11.             '单元格合并
    
12.             CellCombination(DetailSpread.Cells(x, 0), intCalc, 1)

复制代码