Dim strSQL
If Cbodep.ListIndex = 0 Then
strSQL = "select * from teacher order by serial"
Else
strSQL = "select * from teacher where dept_id= '" & Cbodep.ItemData(Cbodep.ListIndex) & "'"
End If

Dataenv.rsteacher.Close
Dataenv.rsteacher.Open strSQL
错误:标准表达式中数据类型不匹配
我要实现的功能是:在下拉列表框Cobdep中选择全部,显示所有的教师信息
在下拉列表框Cobdep中选择某个具体的系则显示本系的教师信息
teacher.dept_id的数据类型为:数字
department.id 的数据类型为:数字
Cobdep中数据实在form_load中加载的department中的name 字段.
department表共有两个字段:id name

致vb爱上我
知道了,谢谢,太感谢你了