自己関係的なデータにバインド

Protected Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)
   If Not Page.IsPostBack Then
' Employees テーブルを取得するために接続およびコマンドを設定します
      Dim con As New SqlConnection("Data Source=.\sqlexpress;Initial Catalog=Northwind;Integrated Security=True")
      Dim com As New SqlCommand("SELECT EmployeeID, FirstName, LastName, Title, ReportsTo FROM EMPLOYEES", con)
' データでデータセットを埋めるためにデータ アダプタを設定します
      Dim da As New SqlDataAdapter(com)
      Dim employees As New DataSet()
      con.Open()
' データを取得します
      da.Fill(employees, "Employees")
      con.Close()
' EmployeeID および ReportsTo 列で同じテーブルにデータの関係を設定します
      Dim rel As New DataRelation("Employees", employees.Tables("Employees").Columns("EmployeeID"), employees.Tables("Employees").Columns("ReportsTo"))
      employees.Relations.Add(rel)
' テーブルのプライマリ キー フィールドを設定します
      employees.Tables("Employees").PrimaryKey = New DataColumn() {employees.Tables("Employees").Columns("EmployeeID")}
' セッション状態でデータを保存します
      Me.Session("Employees") = employees
      Me.WebHierarchicalDataGrid2.IsSelfReference = True
      Me.WebHierarchicalDataGrid2.MaxDataBindDepth = 2
   End If
   ' TODO: set up data binding
End Sub

protected void Page_Init(object sender, EventArgs e)
{
   if (!Page.IsPostBack)
   {
// Employees テーブルを取得するために接続およびコマンドを設定します
      SqlConnection con = new SqlConnection(@"Data Source=.\sqlexpress;Initial Catalog=Northwind;Integrated Security=True");
      SqlCommand com = new SqlCommand("SELECT EmployeeID, FirstName, LastName, Title, ReportsTo FROM EMPLOYEES", con);
// データでデータセットを埋めるためにデータ アダプタを設定します
      SqlDataAdapter da = new SqlDataAdapter(com);
      DataSet employees = new DataSet();
      con.Open();
// データを取得します
      da.Fill(employees, "Employees");
      con.Close();
// EmployeeID および ReportsTo 列で同じテーブルにデータの関係を設定します
      DataRelation rel = new DataRelation("Employees", employees.Tables["Employees"].Columns["EmployeeID"], employees.Tables["Employees"].Columns["ReportsTo"]);
      employees.Relations.Add(rel);
// テーブルのプライマリ キー フィールドを設定します
      employees.Tables["Employees"].PrimaryKey = new DataColumn[] {employees.Tables["Employees"].Columns["EmployeeID"]};
// セッション状態でデータを保存します
      this.Session["Employees"] = employees;
      this.WebHierarchicalDataGrid2.IsSelfReference = true;
      this.WebHierarchicalDataGrid2.MaxDataBindDepth = 2;
   }
// 行うこと：データ バインドを設定します
}

' セッション状態からデータを取得します
Dim ds As DataSet = TryCast(Me.Session("Employees"), DataSet)
' データ ソースを設定し、グリッドにバインドします
Me.WebHierarchicalDataGrid2.DataSource = ds
Me.WebHierarchicalDataGrid2.DataMember = "Employees"
Me.WebHierarchicalDataGrid2.DataKeyFields = "EmployeeID"
Me.WebHierarchicalDataGrid2.Key = "Employees"
Me.WebHierarchicalDataGrid2.DataBind()

// セッション状態からデータを取得します
DataSet ds = this.Session["Employees"] as DataSet;
// データ ソースを設定し、グリッドにバインドします
this.WebHierarchicalDataGrid2.DataSource = ds;
this.WebHierarchicalDataGrid2.DataMember = "Employees";
this.WebHierarchicalDataGrid2.DataKeyFields = "EmployeeID";
this.WebHierarchicalDataGrid2.Key = "Employees";
this.WebHierarchicalDataGrid2.DataBind();