0

データベースに保存されているデータからコンボ ボックスに項目を読み込もうとしています。ボタンをクリックすると、関連するボックスに会社の詳細が適切に入力されます。データベースには、次のような3つのフィールドがあります

Dev = Yes or No
Fin = Yes or No
Net = Yes or No

ここで、Dev はフィールド名、Yes はデータベースに保存されているテキストです。

リーダーで会社の詳細をすべて読んだので、このようなことを試しました。

If reader(14).ToString = "Yes" then
   combobox1.items.add("Developer")
else if reader(15).ToString = "Yes" Then
   combobox1.items.add("Finance")
Else if reader(15).ToString = "Yes" Then
   combobox1.items.add("Networking")
End iF

これを達成する方法はありませんか？

4

3 に答える 3

0 
If reader(9).ToString = "yes" Then
    ComboBox1.Items.Add("Developer")
ElseIf reader(9).ToString = "no" Then
End If
If reader(11).ToString = "yes" Then
    ComboBox1.Items.Add("Finance")
ElseIf reader(11).ToString = "no" Then
End If
If reader(10).ToString = "yes" Then
    ComboBox1.Items.Add("Networking")
ElseIf reader(10).ToString = "no" Then
End If
于 2013-04-03T17:50:42.490 に答える
0

else if reader(15).ToString = "Yes" Thenこれを試してください. コード内でこの条件を 2 回チェックしています. これは問題になる可能性があります.

If reader(14).ToString = "Yes" then
   combobox1.items.add("Developer")
else if reader(15).ToString = "Yes" Then
   combobox1.items.add("Finance")

'--------------\/ May be this could be your problem. 
Else if reader(15).ToString = "Yes" Then     
   combobox1.items.add("Networking")
End iF

これも考慮してください。これにより、ケーシングの問題が解決される場合があります。

    If reader("Dev").ToString.ToUpper() = "YES" then
       combobox1.items.add("Developer")
    else if reader("Fin").ToString.ToUpper() = "YES" Then
       combobox1.items.add("Finance")
    Else if reader("Net").ToString.ToUpper() = "YES" Then     
       combobox1.items.add("Networking")
    End iF
于 2013-04-03T10:30:28.360 に答える