在本文中將會(huì)創(chuàng)建兩個(gè)自定義的SheetView對(duì)象，一個(gè)作為父級(jí)，一個(gè)作為子級(jí)。在父級(jí)中重寫了ChildRelationCount 和 GetChildView 和 FindChildView 方法，ChildRelationCount顯示著對(duì)象和子對(duì)象之間多少的關(guān)系，GetChildView則是備用來看看是否創(chuàng)建了工作表格，如果是應(yīng)經(jīng)創(chuàng)建了，那么就使用這一個(gè)，如果沒有，就重新再創(chuàng)建一個(gè)新的子表格，子SheetView決定著表格名字屬性分配給哪一個(gè)父級(jí)行，然后在子SheetView中覆蓋arentRowIndex的屬性來返回子表格所屬于的行號(hào)，而創(chuàng)建這個(gè)表的SheetName決定了這個(gè)數(shù)字。

所用到的代碼如下：

VB：

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
     FpSpread1.Sheets.Clear()
     FpSpread1.Sheets.Add(New customSheet)
     FpSpread1.Sheets(0).RowCount = 10
     Dim i As Integer
     For i = 0 To 9
          If i <> 1 Then
               FpSpread1.Sheets(0).SetRowExpandable(i, False)
          End If
     Next i
End Sub
End Class
Public Class customSheet
Inherits FarPoint.Win.Spread.SheetView
  Public Overrides ReadOnly Property ChildRelationCount() As Integer
     Get
          Return 1
     End Get
  End Property
  Public Overrides Function GetChildView(ByVal row As Integer, ByVal relationIndex As Integer) As FarPoint.Win.Spread.SheetView
     Dim child As customChild = CType(FindChildView(row, 0),      customChild)
     If Not (child Is Nothing) Then Return child
          child = New customChild
          child.RowCount = 5
          child.Parent = Me
          child.SheetName = row.ToString
          ChildViews.Add(child)
     Return child
  End Function 
  Public Overrides Function FindChildView(ByVal row As Integer, ByVal relationIndex As Integer) As FarPoint.Win.Spread.SheetView
     Dim id As String = row.ToString
     Dim View As FarPoint.Win.Spread.SheetView 
     For Each View In ChildViews
          If View.SheetName = id Then Return View
     Next
     Return Nothing
  End Function
End Class
Public Class customChild
Inherits FarPoint.Win.Spread.SheetView
   Public Overrides ReadOnly Property ParentRowIndex() As Integer        Get             Return CInt(SheetName)
      End Get
   End Property
End Class