Parameters
- index
- Relation index
Return Value
String containing the name of the relation
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=true; } 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(Newobject[]{"bob","morris",0}); names.Rows.Add(Newobject[]{"sean","morris",1}); names.Rows.Add(Newobject[]{"chris","morris",2}); cars=ds.Tables.Add("cars"); cars.Columns.Add("make"); cars.Columns.Add("model"); cars.Columns.Add("owner"); cars.Rows.Add(Newobject[]{"ford","F-150",0}); cars.Rows.Add(Newobject[]{"ford","Mustang",1}); cars.Rows.Add(Newobject[]{"chevy","Impala",2}); colors=ds.Tables.Add("colors"); colors.Columns.Add("exterior"); colors.Columns.Add("interior"); colors.Columns.Add("owner"); colors.Rows.Add(Newobject[]{"black","gray",0}); colors.Rows.Add(Newobject[]{"red","beige",1}); colors.Rows.Add(Newobject[]{"black","tan",2}); ds.Relations.Add("cars",names.Columns["index"],cars.Columns["owner"]); ds.Relations.Add("colors",names.Columns["index"],colors.Columns["owner"]); } private void Button1_Click(object sender,System.EventArgs e) { FarPoint.Web.Spread.SheetView sv=null; sv=FpSpread1.ActiveSheetView; sv.ExpandRow(0,true); ListBox1.Items.Add(sv.GetChildRelation(0)); }
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=True 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(NewObject(){"bob","morris",0}) names.Rows.Add(NewObject(){"sean","morris",1}) names.Rows.Add(NewObject(){"chris","morris",2}) cars=ds.Tables.Add("cars") cars.Columns.Add("make") cars.Columns.Add("model") cars.Columns.Add("owner") cars.Rows.Add(NewObject(){"ford","F-150",0}) cars.Rows.Add(NewObject(){"ford","Mustang",1}) cars.Rows.Add(NewObject(){"chevy","Impala",2}) colors=ds.Tables.Add("colors") colors.Columns.Add("exterior") colors.Columns.Add("interior") colors.Columns.Add("owner") colors.Rows.Add(NewObject(){"black","gray",0}) colors.Rows.Add(NewObject(){"red","beige",1}) colors.Rows.Add(NewObject(){"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 Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click Dim sv As FarPoint.Web.Spread.SheetView sv=FpSpread1.ActiveSheetView sv.ExpandRow(0,True) ListBox1.Items.Add(sv.GetChildRelation(0)) End Sub