[已解决]ComboBox的一个问题

zxy1945

ComboBox_DropButtonClick事件中，用ComboBox.AddItem增加了若干选项。调试时发现再次点击ComboBox时，多了重复选项，于是加了ComboBox.Clear，但发现我所选择的项也被清掉了，原因是ComboBox在下拉列收回时也触发了ComboBox_DropButtonClick。这个要怎么解决？问题比较菜鸟，还望大家赐教。谢谢了！

最佳答案

月排行榜 / 总排行榜

妞叫七七

2013-6-26 17:20

加一个判断
If rs.RecordCount <> 0 and Me.ComboBox1.ListCount=0 Then

    Do While Not rs.EOF
        ComboBox1.AddItem rs.Fields("Batchno")
        rs.MoveNext
    Loop
End If

跳转到最佳答案楼层

妞叫七七

为什么要用这个事件呢？上传一个表吧

zxy1945

妞叫七七 发表于 2013-6-26 16:30
为什么要用这个事件呢？上传一个表吧

那该用什么事件呢？

妞叫七七

添加下拉框的内容，应该是获得焦点或窗体加载事件中进行的。。

zxy1945

恩 看来是我没说清楚 下面是代码：

zxy1945

Private Sub ComboBox1_DropButtonClick()

Dim cn As New ADODB.Connection '定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim rs As New ADODB.Recordset '定义记录集对象，保存数据表
Dim strCn As String, strSQL As String '字符串变量
Dim dt1 As Date, dt2 As Date
Dim mydata As String, mytableH As String, mytableP As String, DataSource As String

dt1 = DTPicker1.Value
dt2 = DTPicker2.Value


'连接数据库
mydata = "recipe_db"
mytableH = "new_report_HeadInfo"
mytableP = "new_report_Param"
DataSource = ThisWorkbook.Sheets("HomePage").Range("DataSource").Value

strCn = "Provider = SQLOLEDB.1;" & "Password = recipe_db_user;" & "User ID = recipe_db_user;" _
        & "Data Source =" & DataSource & "; Initial Catalog = " & mydata
            
On Error Resume Next
cn.Open strCn
On Error GoTo 0

If cn.State = adStateOpen Then

Else
    MsgBox "未能成功连接SQL数据库" & mydata & "，请检查!", vbCritical, "数据保存"
    Exit Sub
End If


strSQL = "select DISTINCT Batchno from " & mytableH & " where Date>='" & dt1 & "'" & "and Date<='" & dt2 & "'"

rs.Open strSQL, cn, 0, 1
On Error Resume Next
rs.MoveFirst
If rs.RecordCount <> 0 Then

    Do While Not rs.EOF
        ComboBox1.AddItem rs.Fields("Batchno")
        rs.MoveNext
    Loop
End If

      
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub

妞叫七七

加一个判断
If rs.RecordCount <> 0 and Me.ComboBox1.ListCount=0 Then

    Do While Not rs.EOF
        ComboBox1.AddItem rs.Fields("Batchno")
        rs.MoveNext
    Loop
End If

zxy1945

妞叫七七 发表于 2013-6-26 17:20
加一个判断
If rs.RecordCount  0 and Me.ComboBox1.ListCount=0 Then

这个法子可行，多谢！