Public Class Form1
　　Private dsDetail As DataSet
　　Private tblParent As DataTable
　　Private tblChild As DataTable
　　
　　Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
　　　　dsDetail = New DataSet

　　　　'親データ
　　　　tblParent = New DataTable
　　　　tblParent.Columns.Add("key1", GetType(Integer))
　　　　tblParent.Columns.Add("分類", GetType(String))

　　　　tblParent.Rows.Add(New Object() {1, "parent1"})
　　　　tblParent.Rows.Add(New Object() {2, "parent2"})

　　　　'子データ
　　　　tblChild = New DataTable
　　　　tblChild.Columns.Add("key1", GetType(Integer))
　　　　tblChild.Columns.Add("child1", GetType(String))
　　　　tblChild.Columns.Add("child2", GetType(String))
　　　　tblChild.Columns.Add("child3", GetType(Integer))
　　　　tblChild.PrimaryKey = New DataColumn() {tblChild.Columns("key1")}

　　　　dsDetail.Tables.Add(tblParent)
　　　　dsDetail.Tables.Add(tblChild)

　　　　'リレーション設定
　　　　dsDetail.Relations.Add("relations", tblParent.Columns("key1"), tblChild.Columns("key1"))

　　　　FpSpread1.ActiveSheet.DataSource = dsDetail
　　　　'非表示設定
　　　　FpSpread1.ActiveSheet.Columns(0).Visible = False
　　End Sub

　　Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
　　　　Dim keyVal As Integer = FpSpread1.ActiveSheet.GetValue(FpSpread1.ActiveSheet.ActiveRowIndex, 0)

　　　　'選択された親に子明細を追加
　　　　tblChild.Rows.Add(New Object() {keyVal, "", "", 0})
　　End Sub

　　Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
　　　　' 現象発生（１）
　　　　Dim svChild As FarPoint.Win.Spread.SheetView = FpSpread1.ActiveSheet.GetChildView(FpSpread1.ActiveSheet.ActiveRowIndex, 0)
　　　　'選択された子明細の削除
　　　　svChild.RemoveRows(svChild.ActiveRowIndex, 1)
　　End Sub
End Class