'DataGridViewにコンボボックス列を追加する
Public Sub GridToCommboSet(ByRef grd As DataGridView, ByVal pColNm As String, ByRef dt As DataTable)
  Dim idx As Integer = grd.Columns(pColNm).Index
  Dim col As New DataGridViewComboBoxColumn()
  Dim tmpCell As New DataGridViewComboBoxCell
  col.DataSource = dt
  col.ValueMember = dt.Columns(0).ColumnName
  col.DisplayMember = dt.Columns(1).ColumnName
  col.DisplayStyleForCurrentCellOnly = True
  grd.Columns.Insert(idx, col)
  grd.Columns(idx).Name = pColNm
  tmpCell.DataSource = col.DataSource
  tmpCell.DisplayMember = col.DisplayMember
  tmpCell.ValueMember = col.ValueMember
End Sub