请教COMBOBOX重新加载后的下拉框问题
我有两个组合框，后一个根据前一个的值进行动态加载，代码如下：
Private Sub cmbcpx_LostFocus() '失去焦点
If cmbcpx.ListIndex > -1 Then
Set rs = QueryExt("select AA,BB from 表1 GROUP BY AA,BB HAVING AA='" & cmbcpx & "' ORDER BY BB ")
With cmbcxbh '后组合框
.Clear '清空组合框
Do While Not rs.EOF '循环处理信息
.AddItem rs("BB") '添加名称
rs.MoveNext '处理下一记录
Loop
.ListIndex = -1 '选中第1项
End With
End If
End Sub
问题：加载数量小于8项时，下拉框不缩进，而是空着不够的地方，选择内容后，下拉框不消失，当加载数量多于等于8项时，
问题消失。
请教：这个问题在网上找了好久，也没找到个所以然来，个人觉得应不是代码的问题，请老师们看下是什么原因，谢谢！！！
[解决办法]
If cmbcpx.ListIndex > -1 Then
Set rs = QueryExt("select AA,BB from 表1 GROUP BY AA,BB HAVING AA='" & cmbcpx & "' ORDER BY BB ")
With cmbcxbh '后组合框
.Clear '清空组合框
Do While Not rs.EOF '循环处理信息
If (Not IsNull(rs("BB"))) Then
If Trim(rs("BB")) > "" Then.AddItem rs("BB") '添加名称
End If
rs.MoveNext '处理下一记录
Loop
If .ListCount Then .ListIndex = 0 '选中第1项
End With
End If
