FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel = (FarPoint.Web.Spread.Model.DefaultSheetDataModel)FpSpread1.ActiveSheetView.DataModel;
FpSpread1.Sheets[0].Cells[1, 1].Formula = "C1+D1";
FpSpread1.Sheets[0].Cells[0, 3].Value = 2;
dataModel.GoalSeek(0, 2, dataModel, 1, 1, 32);
Dim dataModel As New FarPoint.Web.Spread.Model.DefaultSheetDataModel(5, 5)
FpSpread1.ActiveSheetView.DataModel = dataModel
FpSpread1.Sheets(0).Cells(1, 1).Formula = "C1+D1"
FpSpread1.Sheets(0).Cells(0, 3).Value = 2
dataModel.GoalSeek(0, 2, dataModel, 1, 1, 32)