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