Public Class Score
    Private classn as String
    Private grade As String
    Public Property ClassName() As String
        Get
            Return classn
        End Get
        Set(ByVal Value As String)
            classn = Value
        End Set
    End Property
    Public Property Grades() As String
        Get
            Return grade
        End Get
        Set(ByVal Value As String)
            grade = Value
        End Set
    End Property
End Class
Public Class student
    Private name As String
    Private id As String
    Private sco As ArrayList = New ArrayList()
    Public Property names() As String
        Get
            Return name
        End Get
        Set(ByVal Value As String)
            name = Value
        End Set
    End Property
    Public Property ids() As String
        Get
            Return id
        End Get
        Set(ByVal Value As String)
            id = Value
        End Set
    End Property
    Public ReadOnly Property score() As ArrayList
    Get
        Return sco
    End Get
    End Property
End Class
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim list As ArrayList = New ArrayList()
    Dim s As student = New student()
    s.names = "John Smith"
    s.ids = "100001"
    Dim sc As Score = New Score()
    sc.ClassName = "math"
    sc.Grades = "A"
    s.Score.Add(sc)
    sc = New Score()
    sc.ClassName = "English"
    sc.Grades = "A"
    s.Score.Add(sc)
    list.Add(s)
    s = New student()
    s.names = "David Black"
    s.ids = "100002"
    sc = New Score()
    sc.ClassName = "math"
    sc.Grades = "B"
    s.Score.Add(sc)
    sc = New Score()
    sc.ClassName = "English"
    sc.Grades = "A"
    s.Score.Add(sc)
    list.Add(s)
    FpSpread1_Sheet1.DataSource = list
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' データを設定し、SPREADコンポーネントをフォーマットするためのサブルーチンを呼び出します。
    InitData()
    FormatSpread()
End Sub
Private Sub InitData()
    Dim con As New OleDb.OleDbConnection()
    Dim cmd As New OleDb.OleDbCommand()
    Dim da As New OleDb.OleDbDataAdapter()
    Dim ds As New DataSet()
    Dim dt As DataTable
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\Access\databind.mdb""
    con.Open()
    With cmd
        .Connection = con
        .CommandType = CommandType.TableDirect
        .CommandText = "Categories"
    End With
    da.SelectCommand = cmd
    da.Fill(ds, "Categories")
    cmd.CommandText = "Products"
    da.SelectCommand = cmd
    da.Fill(ds, "Products")
    cmd.CommandText = "Inventory Transactions"
    da.SelectCommand = cmd
    da.Fill(ds, "Inventory Transactions")
    ds.Relations.Add("Root", ds.Tables("Categories").Columns("CategoryID"), ds.Tables("Products").Columns("CategoryID"))    ds.Relations.Add("Secondary", ds.Tables("Products").Columns("ProductID"), ds.Tables("Inventory Transactions").Columns("TransactionID"))
    FpSpread1.DataSource = ds
End Sub
Private Sub FormatSpread()
    With FpSpread1.Sheets(0)
        .ColumnHeader.Rows(0).Height = 30
        .Columns(0).Visible = False
    End With
End Sub
Private Sub FpSpread1_ChildViewCreated(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.ChildViewCreatedEventArgs) Handles FpSpread1.ChildViewCreated
    Dim dateType As New FarPoint.Win.Spread.CellType.DateTimeCellType()
    If e.SheetView.ParentRelationName = "Root" Then
        With e.SheetView
            .DataAutoCellTypes = False
            .DataAutoSizeColumns = False
            .ColumnHeader.Rows(0).Height = 30
            .Columns(0).Visible = False
            .Columns(3).Visible = False
            .Columns(4).Visible = False
            .Columns(1).Width = 200
            .Columns(2).Width = 185
            .Columns(6).Width = 85
            .Columns(7).Width = 80
            .Columns(8).Width = 80
            .Columns(5).CellType = New FarPoint.Win.Spread.CellType.CurrencyCellType()
            .Columns(7).CellType = New FarPoint.Win.Spread.CellType.CheckBoxCellType()
        End With
    Else
        With e.SheetView
            .DataAutoCellTypes = False
            .DataAutoSizeColumns = False
            .ColumnHeader.Rows(0).Height = 30
            .Columns(0).Visible = False
            .Columns(2).Visible = False
            .Columns(3).Visible = False
            .Columns(4).Visible = False
            .Columns(7).Visible = False
            .Columns(8).Visible = False
            .Columns(9).Visible = False
            .Columns(1).Width = 100
            .Columns(6).Width = 80
            .Columns(5).CellType = New FarPoint.Win.Spread.CellType.CurrencyCellType()
            dateType.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.ShortDate
            .Columns(1).CellType = dateType
            '合計列を追加します。
            .ColumnCount = .ColumnCount + 1
            .ColumnHeader.Cells(0, .ColumnCount - 1).Value = "Total"
            .Columns(.ColumnCount - 1).CellType = New FarPoint.Win.Spread.CellType.CurrencyCellType()
            .Columns(.ColumnCount - 1).Formula = "F1*G1"
        End With
    End If
End Sub

Dim alist As ArrayList = FpSpread1.Sheets(0).GetChildSheets()
Dim sv As FarPoint.Win.Spread.SheetView = alist(0)
Dim ds As DataSet = CType(FpSpread1.DataSource, DataSet)
ds.Relations.Remove(sv.ParentRelationName)