MESCIUS SPREAD for Windows Forms 17.0J サンプルコード集
末尾に新規行を自動的に追加する

MESCIUS SPREAD for Windows Forms 17.0J サンプルコード集 > データ連結 > 末尾に新規行を自動的に追加する

SheetViewクラスのDataAllowAddNewプロパティをTrueにすることで、ユーザーによるシート末尾への新規行の追加を許可することができます。

【実行例】 新規行の追加

新規行の追加


 private void Form1_Load(object sender, System.EventArgs e)
 {

  // データセットを作成します
  DataTable DT = new DataTable();
  DataSet DS = new DataSet();
  DT = DS.Tables.Add("SampleTable");
  DT.Columns.AddRange(new DataColumn[] {
    new DataColumn("ID", Type.GetType("System.Int32")),
    new DataColumn("Text", Type.GetType("System.String")),
    new DataColumn("Check", Type.GetType("System.Boolean"))
    });

  DT.Rows.Add(new object[] { 10, "Text-10", true });
  DT.Rows.Add(new object[] { 20, "Text-20", false });
  DT.Rows.Add(new object[] { 30, "Text-30", false });
  DT.Rows.Add(new object[] { 40, "Text-40", true });
  DT.Rows.Add(new object[] { 50, "text-50", true });

  // データセットを接続します
  fpSpread1.DataSource = DS;

  // 新規行の追加を許可します
  fpSpread1.ActiveSheet.DataAllowAddNew = true;

 }
 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

  ' データセットを作成しします
  Dim DT As New DataTable
  Dim DS As New DataSet
  DT = DS.Tables.Add("SampleTable")
  DT.Columns.AddRange(New DataColumn() { _
    New DataColumn("ID", Type.GetType("System.Int32")), _
    New DataColumn("Text", Type.GetType("System.String")), _
    New DataColumn("Check", Type.GetType("System.Boolean")) _
    })

  DT.Rows.Add(New Object() {10, "Text-10", True})
  DT.Rows.Add(New Object() {20, "Text-20", False})
  DT.Rows.Add(New Object() {30, "Text-30", False})
  DT.Rows.Add(New Object() {40, "Text-40", True})
  DT.Rows.Add(New Object() {50, "Text-50", True})

  ' データセットを接続します
  FpSpread1.DataSource = DS

  ' 新規行の追加を許可します
  FpSpread1.ActiveSheet.DataAllowAddNew = True

 End Sub