Spread Windows Forms 13.0 Product Documentation
FarPoint.CalcEngine Assembly / FarPoint.CalcEngine Namespace / CellExpression Class / Row Property
Example


In This Topic
    Row Property (CellExpression)
    In This Topic
    Gets the row index of the cell.
    Syntax
    'Declaration
     
    Public Overrides ReadOnly Property Row As Integer
    'Usage
     
    Dim instance As CellExpression
    Dim value As Integer
     
    value = instance.Row
    public override int Row {get;}

    Property Value

    Integer row index
    Example
    This example returns some of the properties for the expression.
    //Spread for Windows Forms
    fpSpread1.ActiveSheet.AutoCalculation = false; 
    fpSpread1.ActiveSheet.SetValue(1, 2, System.Convert.ToDouble("0.00")); 
    fpSpread1.ActiveSheet.AddCustomName("Alpha", new FarPoint.CalcEngine.CellExpression(1, 2, false)); 
    fpSpread1.ActiveSheet.SetFormula(2, 2, "IF(Alpha>0, 0.5, 0)"); 
    fpSpread1.ActiveSheet.SetText(4, 2, "0.00"); 
    fpSpread1.ActiveSheet.AddCustomName("Omega", new FarPoint.CalcEngine.CellExpression(2, 2, false, false)); 
    fpSpread1.ActiveSheet.SetFormula(5, 2, "IF(Omega>0, 0.5, 0)"); 
    fpSpread1.ActiveSheet.AutoCalculation = true; 
    fpSpread1.ActiveSheet.RecalculateAll(); 
    FarPoint.CalcEngine.Expression expr = fpSpread1.ActiveSheet.GetCustomName("Alpha"); 
    if (expr is FarPoint.CalcEngine.CellExpression) 
    { 
    FarPoint.CalcEngine.CellExpression cellExpr = ((FarPoint.CalcEngine.CellExpression)(expr)); 
    MessageBox.Show("The expression is in row " + cellExpr.Row.ToString()); 
    }
    //Spread for Web Forms
    FpSpread1.Sheets[0].AutoCalculation = false; 
    FpSpread1.Sheets[0].SetValue(1, 2, System.Convert.ToDouble("0.00")); 
    FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Web.Spread.Model.DefaultSheetDataModel();  
    dataModel = (FarPoint.Web.Spread.Model.DefaultSheetDataModel)FpSpread1.ActiveSheetView.DataModel; 
    dataModel.AddCustomName("Alpha", new FarPoint.CalcEngine.CellExpression(1, 2, false, false)); 
    FpSpread1.Sheets[0].SetFormula(2, 2, "IF(Alpha>0, 0.5, 0)"); 
    FpSpread1.Sheets[0].SetText(4, 2, "0.00"); 
    FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel1 = new FarPoint.Web.Spread.Model.DefaultSheetDataModel();  
    dataModel1 = (FarPoint.Web.Spread.Model.DefaultSheetDataModel)FpSpread1.ActiveSheetView.DataModel;
    dataModel1.AddCustomName("Omega", new FarPoint.CalcEngine.CellExpression(2, 2, false, false)); 
    FpSpread1.Sheets[0].SetFormula(5, 2, "IF(Omega>0, 0.5, 0)"); 
    FpSpread1.Sheets[0].AutoCalculation = true; 
    FpSpread1.Sheets[0].RecalculateAll(); 
    FarPoint.CalcEngine.Expression expr = dataModel.GetCustomName("Alpha"); 
    if (expr is FarPoint.CalcEngine.CellExpression) 
    { 
    FarPoint.CalcEngine.CellExpression cellExpr = ((FarPoint.CalcEngine.CellExpression)(expr)); 
    TextBox1.Text = "The expression is in row " + cellExpr.Row.ToString(); 
    }
    'Spread for Windows Forms
    FpSpread1.ActiveSheet.AutoCalculation = False
    FpSpread1.ActiveSheet.SetValue(1, 2, CDbl("0.00"))
    FpSpread1.ActiveSheet.AddCustomName("Alpha", New FarPoint.CalcEngine.CellExpression(1, 2, False, False))
    FpSpread1.ActiveSheet.SetFormula(2, 2, "IF(Alpha>0, 0.5, 0)")
    FpSpread1.ActiveSheet.SetText(4, 2, "0.00")
    FpSpread1.ActiveSheet.AddCustomName("Omega", New FarPoint.CalcEngine.CellExpression(2, 2, False, False))
    FpSpread1.ActiveSheet.SetFormula(5, 2, "IF(Omega>0, 0.5, 0)")
    FpSpread1.ActiveSheet.AutoCalculation = True
    FpSpread1.ActiveSheet.RecalculateAll()
    Dim expr As FarPoint.CalcEngine.Expression = FpSpread1.ActiveSheet.GetCustomName("Alpha")
    If TypeOf expr Is FarPoint.CalcEngine.CellExpression Then
    Dim cellExpr As FarPoint.CalcEngine.CellExpression = CType(expr, FarPoint.CalcEngine.CellExpression)
    MessageBox("The expression is in row " & cellExpr.Row.ToString)
    'Spread for Web Forms
    FpSpread1.Sheets(0).Rows.Count = 5
    FpSpread1.Sheets(0).Columns.Count = 5
    FpSpread1.Sheets(0).AutoCalculation = False
    FpSpread1.Sheets(0).SetValue(1, 2, CDbl("0.00"))
    Dim dataModel As New FarPoint.Web.Spread.Model.DefaultSheetDataModel
    dataModel = FpSpread1.ActiveSheetView.DataModel
    dataModel.AddCustomName("Alpha", New FarPoint.CalcEngine.CellExpression(1, 2, False, False))
    FpSpread1.Sheets(0).SetFormula(2, 2, "IF(Alpha>0, 0.5, 0)")
    FpSpread1.Sheets(0).SetText(4, 2, "0.00")
    Dim dataModel1 As New FarPoint.Web.Spread.Model.DefaultSheetDataModel
    dataModel1 = FpSpread1.ActiveSheetView.DataModel
    dataModel1.AddCustomName("Omega", New FarPoint.CalcEngine.CellExpression(2, 2, False, False))
    FpSpread1.Sheets(0).SetFormula(5, 2, "IF(Omega>0, 0.5, 0)")
    FpSpread1.Sheets(0).AutoCalculation = True
    FpSpread1.Sheets(0).RecalculateAll()
    Dim expr As FarPoint.CalcEngine.Expression = dataModel.GetCustomName("Alpha")
    If TypeOf expr Is FarPoint.CalcEngine.CellExpression Then
    Dim cellExpr As FarPoint.CalcEngine.CellExpression = CType(expr, FarPoint.CalcEngine.CellExpression)
    TextBox1.Text = "The expression is in row " & cellExpr.Row.ToString()
    End If
    Requirements

    Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows Server 2012 R2, Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8, Windows 8.1, Windows 10

    See Also