- 101 名前：デフォルトの名無しさん mailto:sage [2009/08/26(水) 23:07:03 ]
- >>87
とりあえず動いた。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'列の設定
Me.DataGridView1.ColumnCount = 1
Me.DataGridView2.ColumnCount = 1
'グリッド１に３行追加
Me.DataGridView1.Rows.Add("hoge1")
Me.DataGridView1.Rows.Add("hoge2")
Me.DataGridView1.Rows.Add("hoge3")
'グリッド２にグリッド１の行数を追加
Dim Count As Integer = Me.DataGridView1.Rows.Count
Me.DataGridView2.Rows.Add(Count)
'グリッド２に値を代入
For i As Integer = 0 To Count - 1
Me.DataGridView2.Rows(i).Cells(0).Value = "hoge" & (i + 1).ToString
Next
End Sub
|
 |
