コンボボックスのドロップダウンリストに前回設定が残ってしまう (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