コンボボックスのドロップダウンリストに前回設定が残ってしまう (ID:145746)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

お世話になります。
VB2008とSQLSERVER2005でプログラムを開発しています、
戸惑ってしまい教えて頂きたく投稿しました。

フォームにコンボボックス１つとコマンドボタン２つを貼り付け
ボタンをクリックすることにより、コンボボックスの内容を
読みかえるプログラムを作っています。

メーカーテーブル(レコード件数５件)データ有り  ボタン１で読込
担当者テーブル(レコード件数０件)データ無し    ボタン２で読込

現象①
ボタン１ボタン２の順で選択した後ドロップダウンリスト
を見るとデータは表示されないのに、５件分の空白でリスト
が表示されます。

現象②
ちなみにフォーム表示後、ボタン２を選択しドロップダウン
リストを見ると１件分の空白でリストが表示されます。

コンボボックスの設定を初期化することは難しいのでしょうか？
ComboBox1.MaxDropDownItemsでの設定は無視されるのでしょうか？

①での現象を②に改善したいのです、気づいた事があればなんでも
良いのでご教授下さい、よろしくお願いします。

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
    End Sub

Private Sub Maker()
        Using cn As New SqlConnection(My.Settings.SqlConnect)
            cn.Open()
            Dim sql As String
            Dim table As New DataTable

sql = "SELECT * FROM メーカー"
            Dim Adapter As New SqlDataAdapter(sql, cn)
            Adapter.Fill(table)

ComboBox1.DataSource = table
            ComboBox1.DropDownWidth = 100
            ComboBox1.DisplayMember = "メーカー名"
            ComboBox1.SelectedIndex = -1
        End Using
    End Sub

Private Sub Charge()
        Using cn As New SqlConnection(My.Settings.SqlConnect)
            cn.Open()
            Dim sql As String
            Dim table As New DataTable

sql = "SELECT * FROM 担当者"
            Dim Adapter As New SqlDataAdapter(sql, cn)
            Adapter.Fill(table)

ComboBox1.DataSource = table
            ComboBox1.DropDownWidth = 100
            ComboBox1.DisplayMember = "担当者名"
            ComboBox1.SelectedIndex = -1
            ComboBox1.MaxDropDownItems = 1
        End Using
    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call Maker()
    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call Charge()
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る