Visual Basic (Declaration) | |
---|---|
Public Sub ExpandRow( _ ByVal row As Integer, _ ByVal expand As Boolean _ ) |
Visual Basic (Usage) | Copy Code |
---|---|
Dim instance As SheetView Dim row As Integer Dim expand As Boolean instance.ExpandRow(row, expand) |
Parameters
- row
- Row index
- expand
- True to expand; false to collapse
Exception | Description |
---|---|
System.ArgumentOutOfRangeException | Specified row is out of range; must be between 0 and the number of rows |
This example binds the spreadsheet to a DataSet, and displays the data in a Hierarchical View. In a button click event expands the first row of the active view and returns the relationship of the first child in the view.
C# | Copy Code |
---|---|
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(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"]); } 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)); } |
Visual Basic | Copy Code |
---|---|
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(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 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 |
Target Platforms: Windows 7, Windows 8, Windows Vista, Windows Server 2000, Windows 2000 Professional, Windows XP Professional, Windows NT 4.0 Workstation, SP6, Windows NT 4.0 Server, SP6