| MESCIUS SPREAD for Windows Forms 15.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