第一种方式
if dr is nothing then
改为
if dr.Datarows.Count = 0 then
第二种方式
第一句代码改为:if tables("hcqj").Current isnot nothing andalso tables("hcqj").Current("jzbz") = 0 then