Spread for ASP.NET 8.0 Product Documentation
CellExpression Constructor(Int32,Int32)
Example 


Row coordinate of cell
Column coordinate of cell
Creates a new expression with a cell reference with absolute coordinates.
Syntax
'Declaration
 
Public Function New( _
   ByVal row As Integer, _
   ByVal column As Integer _
)
'Usage
 
Dim row As Integer
Dim column As Integer
 
Dim instance As New CellExpression(row, column)
public CellExpression( 
   int row,
   int column
)

Parameters

row
Row coordinate of cell
column
Column coordinate of cell
Example
This example returns the location of 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)); 
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)); 
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)); 
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)); 
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))
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))
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))
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))
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
Requirements

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

See Also

Reference

CellExpression Class
CellExpression Members
Overload List

 

 


Copyright © GrapeCity, inc. All rights reserved.