Public da As SqlDataAdapter
Public dt As New DataSet
Public dt As New DataSet
Public cn As New SqlConnection()
Private Sub ComboBox1_DropDown(sender As Object, e As EventArgs) Handles ComboBox1.DropDown
dt.Clear() ‘ 防止累积内容
dt.Clear() ‘ 防止累积内容
da = New SqlDataAdapter("select distinct 字段 from 表 ", cn)
da.Fill(dt, "表")
ComboBox1.DataSource = dt.Tables(0)
ComboBox1.DisplayMember = "字段"
ComboBox1.DisplayMember = "字段"
ComboBox1.SelectedIndex = -1 ’插入一个空行,使其不自动选择,或者能选择一个空行
End Sub
网上提供的
ComboBox1.DataSource = Nothing,再加上 ComboBox1.Items.Clear()不能清除因控件绑定而已经赋值ComboBox1的内容,用dt.Clear()效果不错。
用ComboBox1.SelectedIndex = -1可以选择字段内容也可以空行,用ComboBox1.SelectedText = ""也可以,就是第一次是自动选择,效果不是最好的。