private void Form1_Load(object sender, 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 });
GrapeCity.Spreadsheet.ITable table = fpSpread1.AsWorkbook().ActiveSheet.Range("B2:D7").CreateTable(true);
// データセットをテーブルに接続します
table.DataSource = DS;
}
Private Sub Form1_Load(sender As Object, e As 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})
Dim table As GrapeCity.Spreadsheet.ITable = FpSpread1.AsWorkbook().ActiveSheet.Range("B2:D7").CreateTable(True)
' データセットをテーブルに接続します
table.DataSource = DS
End Sub