Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' 列全体に DataSource を割り当てています Dim col As New DataGridViewComboBoxColumn() With {.Name = "col", .HeaderText = "さんぷる"} col.DataSource = New String() { "マリキータ", "るきお", "魔界の仮面弁士" } dgv.Columns.Add(col) 'テスト用に 10 行ほど追加 For r = 0 To 9 dgv.Rows.Add() Next ' 列全体が DataSource 方式なら、一部の行(ここでは 0 行目)のみを ' 別の DataSource にしても構いません DirectCast(dgv(col.Index, 0), DataGridViewComboBoxCell).DataSource = New String() { "将棋", "チェス", "囲碁" } ' 列全体が DataSource 方式の場合、一部の行(ここでは 3 行目)のみを ' .Items.Clear や .Items.Add することはできません 'DirectCast(dgv(col.Index, 3), DataGridViewComboBoxCell).Items.Clear() ' ただし、DataGridViewComboBoxCell の新しいインスタンスをセットすれば、 ' 一部の行(ここでは 3 行目)に対して .Items 方式に切り替えることが出来ます Dim comboBoxCell3 As New DataGridViewComboBoxCell() dgv(col.Index, 3) = comboBoxCell3 comboBoxCell3.Items.Add("りんご") comboBoxCell3.Items.Add("バナナ") comboBoxCell3.Items.Add("ぶどう") End Sub