combobox chang事件

wxxydl

我想实时显示班级 某班某科某分数段的成绩，更改分数段时，可从实时变化。我想改班级（combobox1）值时，也能变化，因此在cobobox1中加一个change事件 call cc1 就出错了。不知原因，请高手指导

wxxydl

请教高手

fyure

change里加了cc1的话，窗体初始化时ComboBox1.ListIndex = 0  时就会调用CC1，而这时km还是空值，所以会报错。窗体初始化里将 ComboBox2.ListIndex = 0
   放在ComboBox1.ListIndex = 0前可破

wxxydl

将 ComboBox2.ListIndex = 0放在ComboBox1.ListIndex = 0前
combobox1 change里加了cc1的话  能通过  但combobox2 change里加了cc1 又出错了

xyxcc177

//////////////////

xyxcc177

你的代码有点问题，查询结束后及时关闭连接
Sub CC1() '任意分数段查询
Set Cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
PathStr = ThisWorkbook.FullName
Select Case Application.Version * 1    '设置连接字符串,根据版本创建连接
    Case Is <= 11
        strconn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & PathStr
    Case Is >= 12
        strconn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & PathStr & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
End Select
bj = 任意分数段查询.ComboBox1.Value
km = 任意分数段查询.ComboBox2.Value
fs1 = 任意分数段查询.TextBox1.Value
fs2 = 任意分数段查询.TextBox2.Value
If fs1 = "" Then fs1 = 100
If fs2 = "" Then fs2 = 95
Sql = "select Sum (IIf(" & km & " >= " & fs1 & ", 1, 0)), Sum (IIf(" & km & " <= " & fs2 & ", 1, 0)),Sum (IIf(" & km & " > " & fs2 & "and " & km & "<" & fs1 & ", 1, 0)) from [成绩表$a1:p] where 班级=" & bj & " "

Cn.Open strconn
Set rs = Cn.Execute(Sql)
'rs.Open Sql, Cn, 1, 3

任意分数段查询.Label7.Caption = rs.Fields(0).Value
任意分数段查询.Label6.Caption = rs.Fields(1).Value
任意分数段查询.Label11.Caption = rs.Fields(2).Value
rs.Close
Cn.Close
' Sheets("统计").[b2].CopyFromRecordset rs
'任意分数段查询.Label7.Caption = Sheets("统计").[b2]
'任意分数段查询.Label6.Caption = Sheets("统计").[c2]
End Sub

wxxydl

谢谢   我想了很久  没想到加一个逻辑判断