[VB.NET]DataGridViewのコンボボックスのリストにない値を表示したいです。。（どんな力技でも構いません）

Question

前回も同じ質問をしたのですが、もう一度投稿させて戴きます。
申し訳ございません！

前提・実現したいこと

VisualBasicのDataGridViewのコンボボックスのリストにない値を表示できるようにしたいです。

現在、コンボボックスにはDataSourceでデータを格納しており、手入力ができる状態です。
手入力した際、リストにある値なら表示することはできるのですが、リストにない値を表示できない状態であるため、この問題を解決したいです。

前回の質問の結果テキストボックスにしていたのですが、仕様上、コンボボックスで実現しないといけないため、投稿させて戴きました。
どんな力技でも構いません。

発生している問題・エラーメッセージ

コンボボックスに値が入らない。（エラーなどは出ておりません。）

該当のソースコード

試したこと

補足情報（FW/ツールのバージョンなど）

Visual Studio2017,SQL Server

Comments

[YAmaGNZ]

せめて以前にどのような回答を貰って、どこが分からず「テキストボックスにしていた」のか説明して頂けませんか？

[退会済みユーザー]

コメントありがとうございます！
以前の回答はコンボボックスは基本的に格納しているものを表示するためのものであるため、格納されていない値は一度リストに追加して表示する必要があるとの回答でしたので、表示のためだけにDBに保存することはしたくなかったのでコンボボックスは諦めてテキストボックスにしていました。。

[YAmaGNZ]

その行データはデータベースに格納するのですよね？
入力された値をデータベースに登録しないでどうするのですか？
もう一度表示するとき困りませんか？

[YAmaGNZ]

コメントのようなデータのComboBoxですと、行のデータとして「ODNO」を持っている形になると思いますが、追加された場合はそのコードをどうするのですか？
前とかぶりますが、その追加されたデータが格納されている行を保存する時どのようにするのですか？
またその行を再度表示する時どうするのですか？

[YAmaGNZ]

「どんな力技でも構いません」
ならデータベースに登録すればどうですか？

力技ってよりは正当な対応のような気もしますけどね。

Answer 1

こちらのソース参考になりませんか。
空のDataGridView1を準備して動かしてみては如何でしょうか。

'(Test_Sample_Miniature)
Private Sub Button1_Click( ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles Button1.Click
    Try
        '
        Dim chkCol As New DataGridViewCheckBoxColumn
        DataGridView1.Columns.Add(chkCol)

        Dim txtCol As New DataGridViewTextBoxColumn
        DataGridView1.Columns.Add(txtCol)

        Dim cmbCol As New DataGridViewComboBoxColumn
        DataGridView1.Columns.Add(cmbCol)
        cmbCol.Items.Add("日曜日")
        cmbCol.Items.Add("月曜日")
        cmbCol.Items.Add("火曜日")
        cmbCol.Items.Add("水曜日")
        cmbCol.Items.Add("木曜日")
        cmbCol.Items.Add("金曜日")
        cmbCol.Items.Add("土曜日")

        Dim btnCol As New DataGridViewButtonColumn
        DataGridView1.Columns.Add(btnCol)
        btnCol.DefaultCellStyle.BackColor = Color.Gray

        DataGridView1.Columns(0).Width = 100
        DataGridView1.Columns(1).Width = 100
        DataGridView1.Columns(2).Width = 100
        DataGridView1.Columns(3).Width = 100

        DataGridView1.Rows.Add(1, "abc", "月曜日", "Click111")
        DataGridView1.Rows.Add(1, "efg", "火曜日", "Click222")
        DataGridView1.Rows.Add(1, "hij", "水曜日", "Click333")
        '
    Catch ex As Exception
        Exit Sub
    End Try
End Sub

Answer 2

以前に提案されてたと思うんですが、入力値をリストに追加し、それを表示させるってのではどうなんでしょうか

Comments

[退会済みユーザー]

回答ありがとうございます！
試してみたのですが、DataSourceをセットしていたため、リストに追加することが出来ませんでした。。

[y_waiwai]

DataSourceをセットするんじゃなくて、フォーム表示時にリスト値を読み出し、そこにセットさせるってのではどうでしょう。
それなら追加も可能になります

[退会済みユーザー]

大変申し訳ございません。
どのようなソースになりますでしょうか？

[y_waiwai]

たんにフォームの初期化のタイミングでそのリスト値を読み出しといて、当該ComboBoxにセットするだけです

[退会済みユーザー]

'//業務分類コンボボックスの値を取得
Dim comm As New SqlCommand("select ODNO,UserCD,GMB,GMN,ODNO+UserCD+GMB+GMN AS Display from Test2 where ODNOKBNN = '" & CM0000.login_Pass & "'", conn)
Dim adrr As New SqlDataAdapter(comm)
Dim tbll As New DataTable()
'//一行目に空白を追加
Dim drr As DataRow = tbll.NewRow
tbll.Rows.InsertAt(drr, 0)
adrr.Fill(tbll)

ODNO.DataSource = tbll
ODNO.DisplayMember = "Display"
ODNO.ValueMember = "ODNO"

現在がこのようなソースですがどこをなおせばよろしいでしょうか？
無知で申し訳ございません。