Public ReadOnly Property HierBar As HierBarInfo

Dim instance As FpSpread
Dim value As HierBarInfo
 
value = instance.HierBar

public HierBarInfo HierBar {get;}

    DataSet ds = new System.Data.DataSet();

    private void Page_Load(object sender, System.EventArgs e)
    {
      if (this.IsPostBack) return;
      
      this.CreateDataSet();
      FpSpread1.Sheets[0].DataSource = ds;
      FpSpread1.Sheets[0].DataMember = "names";
      FpSpread1.Sheets[0].AllowSort = true;
      FpSpread1.Sheets[0].AlternatingRows[0].ForeColor = Color.Teal;
      FpSpread1.Sheets[0].SetColumnWidth(2, 150);
      FpSpread1.RowHeader.Width = 40;
      FpSpread1.HierBar.ShowParentRow = true;
      FpSpread1.HierBar.ShowWholePath = true;
      FpSpread1.HierarchicalView = false;    
    }

    private void CreateDataSet()
    {
      DataTable names;
      DataTable cars;
      DataTable colors;
      names = ds.Tables.Add("names");
      names.Columns.Add("first");
      names.Columns.Add("last");
      names.Columns.Add("index");
      names.Rows.Add(new object[] {"bob", "morris", 0});
      names.Rows.Add(new object[] {"sean", "morris", 1});
      names.Rows.Add(new object[] {"chris", "morris", 2});
      cars = ds.Tables.Add("cars");
      cars.Columns.Add("make");
      cars.Columns.Add("model");
      cars.Columns.Add("owner");
      cars.Rows.Add(new object[] {"ford", "F-150", 0});
      cars.Rows.Add(new object[] {"ford", "Mustang", 1});
      cars.Rows.Add(new object[] {"chevy", "Impala", 2});
      colors = ds.Tables.Add("colors");
      colors.Columns.Add("exterior");
      colors.Columns.Add("interior");
      colors.Columns.Add("owner");
      colors.Rows.Add(new object[] {"black", "gray", 0});
      colors.Rows.Add(new object[] {"red", "beige", 1});
      colors.Rows.Add(new object[] {"black", "tan", 2});
      ds.Relations.Add("cars", names.Columns["index"], cars.Columns["owner"]);
      ds.Relations.Add("colors", names.Columns["index"], colors.Columns["owner"]);
    }

    Dim ds As New System.Data.DataSet()

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

      If (Me.IsPostBack) Then Return

      CreateDataSet()
      FpSpread1.Sheets(0).DataSource = ds
      FpSpread1.Sheets(0).DataMember = "names"
      FpSpread1.Sheets(0).AllowSort = True
      FpSpread1.Sheets(0).AlternatingRows(0).ForeColor = Color.Teal
      FpSpread1.Sheets(0).SetColumnWidth(2, 150)
      FpSpread1.RowHeader.Width = 40
      FpSpread1.HierBar.ShowParentRow = True
      FpSpread1.HierBar.ShowWholePath = True
      FpSpread1.HierarchicalView = False

    End Sub

    Private Sub CreateDataSet()
      Dim names As DataTable
      Dim cars As DataTable
      Dim colors As DataTable
      names = ds.Tables.Add("names")
      names.Columns.Add("first")
      names.Columns.Add("last")
      names.Columns.Add("index")
      names.Rows.Add(New Object() {"bob", "morris", 0})
      names.Rows.Add(New Object() {"sean", "morris", 1})
      names.Rows.Add(New Object() {"chris", "morris", 2})
      cars = ds.Tables.Add("cars")
      cars.Columns.Add("make")
      cars.Columns.Add("model")
      cars.Columns.Add("owner")
      cars.Rows.Add(New Object() {"ford", "F-150", 0})
      cars.Rows.Add(New Object() {"ford", "Mustang", 1})
      cars.Rows.Add(New Object() {"chevy", "Impala", 2})
      colors = ds.Tables.Add("colors")
      colors.Columns.Add("exterior")
      colors.Columns.Add("interior")
      colors.Columns.Add("owner")
      colors.Rows.Add(New Object() {"black", "gray", 0})
      colors.Rows.Add(New Object() {"red", "beige", 1})
      colors.Rows.Add(New Object() {"black", "tan", 2})
      ds.Relations.Add("cars", names.Columns("index"), cars.Columns("owner"))
      ds.Relations.Add("colors", names.Columns("index"), colors.Columns("owner"))
    End Sub