DialogResult dlg;
FarPoint.Win.Spread.Model.ICalculationSupport cs;
fpSpread1.ActiveSheet.SetValue(0, 0, 10);
fpSpread1.ActiveSheet.SetValue(0, 1, 20);
fpSpread1.ActiveSheet.SetFormula(3, 0, "SUM(A1,B1)");
dlg = MessageBox.Show("Do you want to recalculate the formula?", "AutoCalculation", MessageBoxButtons.YesNo);
if (dlg == DialogResult.Yes)
{
cs = (FarPoint.Win.Spread.Model.ICalculationSupport)fpSpread1.ActiveSheet.Models.Data;
cs.AutoCalculation = true;
fpSpread1.ActiveSheet.SetValue(0, 1, 50);
}
else if(dlg == DialogResult.No)
{
cs = (FarPoint.Win.Spread.Model.ICalculationSupport)fpSpread1.ActiveSheet.Models.Data;
cs.AutoCalculation = false;
fpSpread1.ActiveSheet.SetValue(0, 1, 50);
}
Dim dlg As DialogResult
Dim cs As FarPoint.Win.Spread.Model.ICalculationSupport
FpSpread1.ActiveSheet.SetValue(0, 0, 10)
FpSpread1.ActiveSheet.SetValue(0, 1, 20)
FpSpread1.ActiveSheet.SetFormula(3, 0, "SUM(A1,B1)")
dlg = MessageBox.Show("Do you want to auto calc the formula?", "AutoCalculation", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
cs = FpSpread1.ActiveSheet.Models.Data
cs.AutoCalculation = True
FpSpread1.ActiveSheet.SetValue(0, 1, 50)
ElseIf dlg = DialogResult.No Then
cs = FpSpread1.ActiveSheet.Models.Data
cs.AutoCalculation = False
FpSpread1.ActiveSheet.SetValue(0, 1, 50)
End If