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


In This Topic
    ColumnRelative Property (CellExpression)
    In This Topic
    Determines whether the column coordinate is relative.
    Syntax
    'Declaration
     
    Public Overrides ReadOnly Property ColumnRelative As Boolean
    'Usage
     
    Dim instance As CellExpression
    Dim value As Boolean
     
    value = instance.ColumnRelative
    public override bool ColumnRelative {get;}

    Property Value

    true if relative reference for column; false if absolute reference
    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 expressions column reference is relative is " + cellExpr.ColumnRelative.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 expressions column reference is relative is " + cellExpr.ColumnRelative.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.Show("The expressions column reference is relative is " & cellExpr.ColumnRelative.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 expressions column reference is relative is " & cellExpr.ColumnRelative.ToString()
     End If
    See Also