Question

VB 记录集为空时怎么判断

VB访问SQL的一段代码Call OpenRs("select sum(当前库存*单价)as 合计 from kfcllr where 部门 like'" & Trim(Text1.Text) & "%'and 使用类别 like'" & Trim(Text2.Text) & "%'")
Text3.Text = rs.Fields("合计")
功能是求和并在text3中显示出来。查询的记录不为空时程序运行正常，当我查询的条件在数据库里找不到对应记录时
Text3.Text = rs.Fields("合计")报错，原因是rs.fields("合计")没有得到数，怎样通过一个条件判断，如果记录为空时text3.text=0.

Answer 1

直接判断rs的记录数是否大于0就可以了

不过有几年没有写VB的代码了，刚找了一下，你判断rs.RecordCount 这个值是否大于0就行了。

这个属性就是rs的记录数

或者你用EOF这个属性也可以，判断记录指针是否越过末尾，如果超过就返回True值，如果你打打开的rs对象没有记录数的话，这个值就返回True值