中国船舶工业统计2017:VB出错调试后报这样的错,不知道怎么改,求高手.

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/14 14:15:29
程序:rspassword1.Open strpassword1, cn

If Not IsNull(rspassword1![Password]) Then
Text1.Text = rspassword1![Password]
Else
Text1.Text = ""
End If
我想把rspassword1里password里的记录给text1.text,但是出错了,说的是"BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。",到底改怎么改呢

if not rspassword1.eof then
If Not IsNull(rspassword1![Password]) Then
Text1.Text = rspassword1![Password]
Else
Text1.Text = ""
End If
end if
要加上判断记录集是否为空.

EOF是结尾
BOF是空
楼上的if not rspassword1.eof then要改成
if not rspassword1.bof then