FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.Model 名前空間 > DefaultSheetDataModel クラス : AddUnboundRows メソッド |
'使用法 Dim instance As DefaultSheetDataModel Dim row As Integer Dim count As Integer instance.AddUnboundRows(row, count)
FarPoint.Win.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Win.Spread.Model.DefaultSheetDataModel(5, 5); dataModel.AddCustomName("TWICESUM", "2*SUM(A1,A2)", 1, 1); dataModel.SetFormula(1, 1, "TWICESUM"); dataModel.SetValue(0, 0, 10); dataModel.SetValue(1, 0, 10); fpSpread1.ActiveSheet.Models.Data = dataModel;
Dim ds As New DataSet() Dim emp As New DataTable("Employees") Dim div As New DataTable("Division") 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) FpSpread1.ActiveSheet.Models.Data = dataModel