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