求救:无效使用NULL

来源：百度知道编辑：UC知道时间：2024/05/16 10:42:04

strSQL = "select * from 车辆登记 " '从表中获取主表记录集
rsTable.Open strSQL, Conn, adOpenDynamic, adLockOptimistic
bianhao = 1 '给编号字段赋值

'根据车牌遍历记录集rsTable
Do While Not rsTable.EOF
If Len(rsTable.Fields(1)) <> 0 Then '检查表中车属单位是否为空
danwei = rsTable.Fields(1) '车属单位
Else
danwei = ""
End If
chepai = rsTable.Fields(2) '从表中读取车牌照
If Len(rsTable.Fields(16)) <> 0 Then '检查表中驾驶员是否为空
jiashiyuan = rsTable.Fields(16) '驾驶员
Else
jiashiyuan = ""
End If

licheng = 0 '初始化变量值
yongyou = 0
licheng1 = 0
xiuli = 0
qita = 0

Do While licheng1 < yuejizhi

在库表中有内容没有错。
我估计是查询的条件中没有相对应的记录。出现的是空记录。所以会出错！看一下条件是否有问题。
把SQL语句显示出来，放到数据库中执行一下看看是否有记录！如果循环中有某季度没有值的话肯定会出错的！

===========
关于你消息里提的空问题的解决，我以前的解决方案是这样的：
if trim(rs("rcount3")&" ")="" then
'这里做空处理
end if

求救:无效使用NULL 无效使用Null: 'Split' 无效使用 Null: 'clng' 急救!无效使用 Null: 'Cint' 无效使用 Null : "replace" 的问题无效使用 Null: 'replace'，什么问题？ VB连接数据库问题实时错误94 无效使用NULL asp的新闻系统为什么有时在删除记录时会提示:"无效使用 Null: 'Split' " 求救！～浏览器url无效？ <%=replace(rs("content"),chr(13)&chr(10),"<br>")%>数据库内容为空时出现___无效使用 Null: 'Replace'