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

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

Dataenv.rsteacher.Close
Dataenv.rsteacher.Open strSQL

数字类型的不用单引号

[此贴子已经被作者于2006-5-8 17:57:43编辑过]

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