Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel(10, 10)
Dim dlg As DialogResult
FpSpread1.ActiveSheet.Models.Data = dataModel
dataModel.SetValue(0, 0, 10)
dataModel.SetValue(1, 0, 20)
dataModel.SetFormula(1, 1, "3*SUM(A1, A2)")
dataModel.SetValue(4, 0, 100)
dataModel.SetValue(5, 0, 200)
dataModel.SetFormula(2, 2, "3*SUM(A5, A6)")
dlg = MessageBox.Show("Do you want to recalculate?", "RecalculateAll", MessageBoxButtons.YesNo)
If dlg = DialogResult.Yes Then
dataModel.SetValue(0, 0, 50)
dataModel.RecalculateAll()
End If