'Test Data 作成 ds = New DataSet("testDs") Dim dt As DataTable = ds.Tables.Add("testTable1") dt.Columns.Add("id", Type.GetType("System.Int32")) dt.Columns.Add("value", Type.GetType("System.String")) dt.Columns.Add("date", Type.GetType("System.DateTime")) Dim row As DataRow For i As Integer = 1 To 100 row = dt.NewRow() row.Item("id") = i row.Item("value") = "Test" & i.ToString row.Item("date") = Now dt.Rows.Add(row) Next