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;
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
End Sub