データバインドされたコンボボックスに空の行を追加する際の問題

Question

コンボボックスに値のない空の行を追加したいとします。これは、ユーザがコンボボックスから何かを選択して、それを選択解除したい場合です。私はすでにDELETEをクリックし、選択したインデックスを-1に設定できることを既に指摘しているので、空の行がなければこれは必須です。ユーザーはコンボボックスの上部にある空の行を必要とします。このようにコンボボックスをロードしています....

sql="Select ID, Name from TblReference" 

Dim da As New SqlDataAdapter(Sql, conn) 
Dim ds As New DataSet 

da.Fill(ds, "Dk") 

ここで余分な行を追加しようとしています！これは以前@Plutonixによって私に提供されました。私はこれを動作させることができません。

Dim dr As DataRow = ds.Tables("Dk").NewRow 
ds.Tables("Dk").Rows.InsertAt(dr, 0) 

If ds.Tables("Dk").Rows.Count > 0 Then 
    With c 
     .DataSource = ds.Tables("Dk") 
     .ValueMember = "ID" 
     .DisplayMember = "Name" 
     .SelectedIndex = -1 
    End With 
End If 

この場合、C - はこの関数に渡すコンボボックスの名前です。私は複数のコンボボックスに同じ機能を使用しているので、私はそれが必要なのです。

ERRORは言う：

型のオブジェクトをキャストすることができません 'System.Data.DataRow' 'SystemIconvertible' を入力します。

Answer 1

INT32れるIDカラム 予想タイプにsystem.data.datarow格納することができなかった新しい行がDataTableに加えは、DBから読み出されたデータ・ルールに準拠しなければなりません。あなたのケースでは、IDが有効Int32なければならないことを知っていますが、あなたの行の任意のデータを提供しませんでした：、おそらくより良い、

Dim dr = dtSample.NewRow 
dr("Id") = -1 
dr("Descr") = "(Blank)" 
dtSample.Rows.InsertAt(dr, 0) 

cboE.DataSource = dtSample 
cboE.DisplayMember = "Descr" 
cboE.ValueMember = "Id" 

---

もう一つの方法は、LETのSQLです偽の行を追加します。 MySQLでは、それは次のようになります。

SELECT -1 As Id, '(Pick One)' As Descr UNION ALL SELECT Id, Descr FROM TABLE_NAME 

Nameは、多くの場合、予約語、Descrは、説明の目的のために使用されているので。