Question

vb中调试错误代码424怎么解决

Answer 1

想解决的话把出错的代码贴出来

追问

Sub disprecord()
If Rs.EOF Then Rs.movelast
If Rs.bof Then Rs.movefirst
Text1.Text = Rs.fields("name")
Text2.Text = Rs.fields("phone")
Text3.Text = Rs.fields("address")
End Sub
代码是这样的424调试错误

追答

哪行错了？提示信息是啥？

追问

If Rs.EOF Then是黄色字体！If Rs.EOF Then Rs.movelast
提示错误，代码是424

Answer 2

你的RS放到类里面声明的吗？

追问

Sub disprecord()
If Rs.EOF Then Rs.movelast
If Rs.bof Then Rs.movefirst
Text1.Text = Rs.fields("name")
Text2.Text = Rs.fields("phone")
Text3.Text = Rs.fields("address")
End Sub
这是声明里的一段代码，在运行时说EOF或者BOF有一个为真，要求当前有一个记录是不是数据库没记录造成的？

追答

晕，你数据库没有数据，读取过程当然会出错啊，即使不报424也会报别的，你可以尝试先补两条数据到数据库里，没有数据不好测试的

追问

数据库有了数据在调试的时候Rs.movelast一段是黄色的，运行时说EOF或者BOF有一个为真！