VB.NETでDataGridViewの初期値設定サンプル

2021年11月22日

書式
DataGridView名.Columns(0).HeaderText = 列名

指定行セールのデータを設定
DataGridView名.Rows(0).Cells(0).Value = 値

行数、列数を設定
DataGridView名.RowCoun = 行数
DataGridView名.ColumnCount = 列数

使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'列数3 行数2
dataGrdLst.ColumnCount = 3
dataGrdLst.RowCount = 2
'列名を指定
dataGrdLst.Columns(0).HeaderText = "番号"
dataGrdLst.Columns(1).HeaderText = "名前"
dataGrdLst.Columns(2).HeaderText = "住所"
'1行目 セルのデータを設定
dataGrdLst.Rows(0).Cells(0).Value = 1001
dataGrdLst.Rows(0).Cells(1).Value = "山田 太郎"
dataGrdLst.Rows(0).Cells(2).Value = "東京 "
'2行 セルのデータを設定
dataGrdLst.Rows(1).Cells(0).Value = 2002
dataGrdLst.Rows(1).Cells(1).Value = "テスト 次郎"
dataGrdLst.Rows(1).Cells(2).Value = "大阪 "
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '列数3 行数2 dataGrdLst.ColumnCount = 3 dataGrdLst.RowCount = 2 '列名を指定 dataGrdLst.Columns(0).HeaderText = "番号" dataGrdLst.Columns(1).HeaderText = "名前" dataGrdLst.Columns(2).HeaderText = "住所" '1行目 セルのデータを設定 dataGrdLst.Rows(0).Cells(0).Value = 1001 dataGrdLst.Rows(0).Cells(1).Value = "山田 太郎" dataGrdLst.Rows(0).Cells(2).Value = "東京 " '2行 セルのデータを設定 dataGrdLst.Rows(1).Cells(0).Value = 2002 dataGrdLst.Rows(1).Cells(1).Value = "テスト 次郎" dataGrdLst.Rows(1).Cells(2).Value = "大阪 " End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    '列数3 行数2
    dataGrdLst.ColumnCount = 3
    dataGrdLst.RowCount = 2

    '列名を指定
    dataGrdLst.Columns(0).HeaderText = "番号"
    dataGrdLst.Columns(1).HeaderText = "名前"
    dataGrdLst.Columns(2).HeaderText = "住所"

    '1行目 セルのデータを設定
    dataGrdLst.Rows(0).Cells(0).Value = 1001
    dataGrdLst.Rows(0).Cells(1).Value = "山田 太郎"
    dataGrdLst.Rows(0).Cells(2).Value = "東京 "

    '2行 セルのデータを設定
    dataGrdLst.Rows(1).Cells(0).Value = 2002
    dataGrdLst.Rows(1).Cells(1).Value = "テスト 次郎"
    dataGrdLst.Rows(1).Cells(2).Value = "大阪 "


End Sub

 

VB.net

Posted by arkgame