Spread ASP.NET 14
FarPoint.CalcEngine Assembly / FarPoint.CalcEngine Namespace / CellExpression Class / Column Property
Example


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

    Property Value

    Integer column 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 column " + cellExpr.Column.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 column " + cellExpr.Column.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 column " & cellExpr.Column.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 column " & cellExpr.Column.ToString()
    End If
    See Also