FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > DefaultSheetDataModel クラス : GetUnboundValue メソッド |
'Declaration Public Function GetUnboundValue( _ ByVal row As Integer, _ ByVal column As Integer _ ) As Object
'使用法 Dim instance As DefaultSheetDataModel Dim row As Integer Dim column As Integer Dim value As Object value = instance.GetUnboundValue(row, column)
Dim ds As New DataSet() Dim emp As New DataTable("Employees") Dim div As New DataTable("Division") Dim o As Object emp.Columns.Add("LastName") emp.Columns.Add("FirstName") emp.Rows.Add(New Object() {"Jones", "Marianne"}) emp.Rows.Add(New Object() {"Fieldes", "Anna"}) div.Columns.Add("Section") div.Columns.Add("Specialty") div.Rows.Add(New Object() {"Finance", "Taxes"}) div.Rows.Add(New Object() {"Mergers", "Legal"}) ds.Tables.AddRange(New DataTable() {emp, div}) Dim dataModel As New FarPoint.Win.Spread.Model.DefaultSheetDataModel() dataModel.DataSource = ds dataModel.DataMember = "Division" dataModel.AddUnboundRows(1, 3) dataModel.SetValue(1, 0, "Unbound Value") o = dataModel.GetUnboundValue(1, 0) ListBox1.Items.Add(o.ToString()) FpSpread1.ActiveSheet.Models.Data = dataModel
DataSet ds = new DataSet(); DataTable emp = new DataTable("Employees"); DataTable div = new DataTable("Division"); object o; emp.Columns.Add("LastName"); emp.Columns.Add("FirstName"); emp.Rows.Add(new Object[] {"Jones", "Marianne"}); emp.Rows.Add(new Object[] {"Fieldes", "Anna"}); div.Columns.Add("Section"); div.Columns.Add("Specialty"); div.Rows.Add(new Object[] {"Finance", "Taxes"}); div.Rows.Add(new Object[] {"Mergers", "Legal"}); ds.Tables.AddRange(new DataTable[] {emp, div}); FarPoint.Win.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Win.Spread.Model.DefaultSheetDataModel(5, 5); dataModel.DataSource = ds; dataModel.DataMember = "Division"; dataModel.AddUnboundRows(1, 3); dataModel.SetValue(1, 0, "Unbound Value"); o = dataModel.GetUnboundValue(1, 0); listBox1.Items.Add(o.ToString()); fpSpread1.ActiveSheet.Models.Data = dataModel;