DataTable・DataGridViewを使ってみる

サンプル１

概要

今日以前３０日間分のアクセス数（乱数）をDataGridViewへ表示してみる。

準備

WindowsフォームVBプロジェクトのフォーム上に

Button.Button1(DTTest呼び出し用)

DataGridView.DataGridView1

を設置してください。

Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
    DTTest()
End Sub

Sub DTTest()

    Dim dt As New DataTable
    Dim bufdate As Date
    Dim rand As New Random(1) '乱数生成用

    'Column生成
    Dim colDate As New DataColumn("ColDate", GetType(DateTime))
    dt.Columns.Add(colDate)

    Dim colAccess As New DataColumn("ColAccess", GetType(Integer))
    dt.Columns.Add(colAccess)

    '取り敢えず今日
    bufdate = Now.Date()

    'TestData生成
    For i = 0 To 30

        Dim row As DataRow = dt.NewRow()

        row("ColDate") = DateAdd(DateInterval.Day, -i, bufdate)
        row("ColAccess") = rand.Next(50, 100) '50～100までの数値をランダムで生成

        dt.Rows.Add(row)

    Next

    'データグリッドへ表示
    DataGridView1.DataSource = dt

End Sub

 実行結果