Работа с иерархической таблицей

Private m_DataSet As DataSet 
Private m_dtClasses As DataTable 
Private m_dtStudents As DataTable 
Private m_DataRelation As DataRelation
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load 
  ' создать объект DataSet 
  m_DataSet = New DataSet() 
 
  ' создать таблицу Classes 
  m_dtClasses = New DataTable("Classes") 
  m_DataSet. Tables.Add(m_dtClasses) 
  m_dtClasses.Columns.Add("ClassName", GetType(String)) 
  m_dtClasses.Columns.Add("ClassNumber", GetType(Integer)) 
  m_dtClasses.Columns.Add("Department", GetType(String)) 
 
  ' создать таблицу Students 
  m_dtStudents = New DataTable("Students") 
  m_DataSet.Tables.Add(m_dtStudents) 
  m_dtStudents.Columns.Add("l_astName", GetType(String)) 
  m_dtStudents.Columns.Addf'FirstName", GetType(String)) 
  m_dtStudents.Columns.Add("Major", GetType(String))
 
  ' создать отношение между столбцами Department и Major- 
  ' последний параметр указывает, что 
  ' отношение не должно создавать ограничений целостности 
  ' (которых потребовало бы отношение "один-ко-многим") 
  m_DataRelation = New DataRelation("ClassStudents", m_dtClasses.Columns("Department"), m_dtStudents.Columns("Major"), False) 
  m_DataSet.Relations.Add(m_DataRelation)
 
  ' загрузить данные в таблицу Classes 
  Dim class_data(2) As Object 
  class_data(0) = "Calculus I" 
  class_data(1) = 1201 
  class_data(2) = "Mathematics" 
  m_dtClasses.Rows.Add(class_data) 
 
  '... часть кода опущена 
 
  'загрузить данные в таблицу Students 
  Dim student_data(2) As Object 
  student_data(0) = "Archer" 
  student_data(1) = "Audrey" 
  student_data(2) = "Mathematics" 
  m_dtStudents.Rows.Add(student_data) 
 
  '... часть кода опущена 
  
  ' принять изменения 
  m_DataSet.AcceptChanges() 
 
  ' присоединить сетку DataGrids к DataTables 
  dgClasses.DataSource = m_dtClasses 
  dgStudents.DataSource = m_dtStudents 
End Sub
 
Private Sub btnl_istChildren_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListChildren.Click 
  Dim class_row As DataRow 
  Dim child_rows() As DataRow 
  Dim i As Integer 
  Dim txt As String 
  'получить строку class 
  class_row = m_dtClasses.Rows(dgClasses.CurrentCell.RowNumber) 
  'получить потомков 
  child_rows = class_row.GetChildRows(m_DataRelation) 
  'цикл по потомкам 
  For i = 0 To child_rows.GetUpperBound(0) 
       txt = txt & child_rows(i).Item("FirstName") & " " & _ 
       child_rows(i).Item("LastName") & vbCrLf 
  Next i 
 
MsgBox(txt, MsgBoxStyle.OKOnly, "Студенты отделения " & class_row.Item("Department")) 
End Sub 
 
'список родительских строк для записи Student 
Private Sub btnListParents_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles- btnListParents.Click 
  Dim student_row As DataRow 
  Dim parent_rows() As DataRow 
  Dim i As Integer 
  Dim txt As String 
 
  'получить строку Student 
  student_row = m_dtStudents.Rows(dgStudents.CurrentCell.RowNumber) 
 
  'получить родительские строки 
  parent_rows = student_row.GetParentRows(m_DataRelation) 
 
  'отобразить сокращенное название штата 
  For i = 0 То parent_rows.GetllpperBound(0) 
       txt = txt & parent_rows(i).Item("ClassName") & vbCrLf 
  Next i 
MsgBox(txt, MsgBoxStyle.OKOnly, "Занятия в отделении " & student_row.Item("FirstName") & Student_row.Item("LastName")) 
End Sub