我的程序如下: If rs1.State = adStateOpen Then rs1.Close
rs1.Open "SELECT sum(费用) as 合计 FROM table where 分公司名 = '" & Combo7.Text & "' ", cn1, adOpenDynamic, adLockOptimistic
If Not rs1.EOF Then
total1 = rs1!合计
Label17.Caption = rs1!合计
Label16.Caption = ToChineseMoney(total1)
End If希望如果查询数据表中存在符合条件的记录,则显示,如果没有记录,则不显示,就这么简单,但不知为什么,程序运行时,有记录时,则正常显示,但当无记录时却提示出错:“实时错误94,无效使用null”,选择“调试”,则“total1 = rs1!合计”这一行反黄了,请问应该怎么改?
rs1.Open "SELECT sum(费用) as 合计 FROM table where 分公司名 = '" & Combo7.Text & "' ", cn1, adOpenDynamic, adLockOptimistic
If Not rs1.EOF Then
total1 = rs1!合计
Label17.Caption = rs1!合计
Label16.Caption = ToChineseMoney(total1)
End If希望如果查询数据表中存在符合条件的记录,则显示,如果没有记录,则不显示,就这么简单,但不知为什么,程序运行时,有记录时,则正常显示,但当无记录时却提示出错:“实时错误94,无效使用null”,选择“调试”,则“total1 = rs1!合计”这一行反黄了,请问应该怎么改?
解决方案 »
- 如何获取RichEdit20A 的内容
- VB6中遍历DataGrid中某一行,某一列,所有行,所有列,是怎么写代码?非记录集操作
- 一个小问题
- 就看这段代码,连接access出错了
- 『新手求助』listview设置了checkboxes属性后,如何让某一行不显示checkbox
- 【ADSI】如何用VB编程实现创建一个Web站点或者虚拟目录?
- 为什么导出SQL记录到excel有问题呢??
- 如何使用RTTI进行判断控件是否有某个属性??????谢谢啦!!!
- 请教:用ADO同时打开一个数据库的两个表,请问怎样操作,XIEXIE.(代码如下)
- 高手请进:一个在VB中调用VC写的DLL函数的奇怪问题
- [无法为更新定位行.一些值可能已在最后一次读取后已更改]是什么错误
- 组件中如果包含ADO事务,再用MTS封装,有效吗?
rs1.Open "SELECT isnull(sum(费用),0) as 合计 FROM table where 分公司名 = '" & Combo7.Text & "' ", cn1, adOpenDynamic, adLockOptimistic