Question

VB中BOF或EOF中有一个是真,或者当前的记录已被删除,所需的操作要求一个当前的记录

我才学VB，不懂怎么弄，有谁能帮我解决这个问题啊？不胜感激！

Private Sub FixData()
Dim UserID As String
Dim rights As String
'显示具体信息
If ListUser.ListCount > 0 Then
UserID = Left(Trim(ListUser.Text), 10)
Else
Exit Sub
End If
'查找数据
rs.MoveFirst
rs.Find ("userId='" & UserID & "'")
'显示数据
txtUserID.Text = Trim(rs.Fields("userID"))---------------此行出错
txtName.Text = Trim(rs.Fields("userName"))
txtPassword.Text = Trim(rs.Fields("password"))
CboSelect.Text = Trim(rs.Fields("userType"))
txtPhone.Text = Trim(rs.Fields("telphone"))
txtEmail.Text = Trim(rs.Fields("email"))

'控件可用性
CmdModify.Enabled = True: CmdDelete.Enabled = True: CmdAdd.Enabled = True
CmdSave.Enabled = False: CmdCancel.Enabled = False
End Sub

Answer 1

1、新建一个标准EXE工程。

2、设置一个命令按钮，将它的CAPTION改为显示时间，设置一个图片框，将它的名称改为K。

3、点击显示时间按钮进入代码编辑器。

4、在代码编辑器上，写入时间命令代码。在VB中，输入的字母不用分大小写。k.print str(year(now))+"年"+str(month(now))+"月"+str(day(now))+"日"k.print str(hour(now))+"时"+str(minute(now))+"分"+str(seacond(now))+"秒"。

5、上面就是读取当前日期时间的代码，我们点击解释执行代码即可。

Answer 2

一点分析
出错原因：因为数据表中没有找个记录，或者数据表是空的，数据指针已经移到数据表末尾。
解决办法：在这个方法的开头处写上“On Error Resume next”它就不报错了。更完善一点在---在查找数据之前先检查一下数据表是否为空，记录数是否为零，没有记录你还查什么呀。另外使用Find方法进行查找时，是否需要先把记录指针移到开头开头呢？（我记不清了，查一下MSDN吧）。
祝你好运！

Answer 3

查看rs.recordcount,recordcount==0时，不能使用这个属性