Private Sub Page_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load
If(IsPostBack)Then Return
Dim dm As FarPoint.Web.Spread.Model.DefaultSheetDataModel=New FarPoint.Web.Spread.Model.DefaultSheetDataModel(10,10)
FpSpread1.ActiveSheetView.DataModel=dm
dm.SetValue(0,0,1)
dm.SetValue(0,1,2)
dm.SetValue(0,2,3)
dm.SetValue(0,3,4)
dm.SetValue(0,4,5)
dm.SetValue(0,5,6)
dm.SetValue(1,0,100)
dm.SetValue(1,1,99)
dm.SetValue(1,2,98)
dm.SetValue(1,3,97)
dm.SetValue(1,4,96)
dm.SetValue(1,5,95)
End Sub
Private Sub Button1_Click(ByVal sender As Object,ByVal e As System.EventArgs)Handles Button1.Click
Dim dm As FarPoint.Web.Spread.Model.DefaultSheetDataModel=FpSpread1.ActiveSheetView.DataModel
dm.Swap(0,0,0,2,2,2)
End Sub