FarPoint.Web.Spread Assembly > FarPoint.Web.Spread.Model Namespace > GroupDataModel Class : GetValue Method |
'Declaration Public Overrides Function GetValue( _ ByVal row As Integer, _ ByVal col As Integer _ ) As Object
'Usage Dim instance As GroupDataModel Dim row As Integer Dim col As Integer Dim value As Object value = instance.GetValue(row, col)
protected void Button1_Click(object sender, EventArgs e) { FarPoint.Web.Spread.Model.GroupDataModel gm; if ((FpSpread1.ActiveSheetView.DataModel) is FarPoint.Web.Spread.Model.GroupDataModel) { gm = (FarPoint.Web.Spread.Model.GroupDataModel)FpSpread1.ActiveSheetView.DataModel; if ((gm.TargetModel) is FarPoint.Web.Spread.Model.IRangeSupport) { FarPoint.Web.Spread.Model.IRangeSupport im = (FarPoint.Web.Spread.Model.IRangeSupport)gm.TargetModel; Object o; o = gm.GetValue(1, 1); String msg = o.ToString(); Response.Write("alert('" + msg + "')"); } } }
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim gm As FarPoint.Web.Spread.Model.GroupDataModel If TypeOf (FpSpread1.ActiveSheetView.DataModel) Is FarPoint.Web.Spread.Model.GroupDataModel Then gm = FpSpread1.ActiveSheetView.DataModel If TypeOf (gm.TargetModel) Is FarPoint.Web.Spread.Model.IRangeSupport Then Dim im As FarPoint.Web.Spread.Model.IRangeSupport = gm.TargetModel Dim o As Object o = gm.GetValue(1, 1) Dim msg As String = o.ToString() Response.Write("alert('" & msg & "')") End If End If End Sub
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