这段代码里的num = rs(0)说出错了，调试的结果说BOF或EOF中的一个是“真”，或者当前的记录已删除，所需要的操作要求一个当前的记录。我不知道怎么修改，

Question

Private Sub Form_Load()
    Dim rs As New ADODB.Recordset
    Dim SQL As String
    Dim num As Integer
    Dim temp As String
    With Gender                                '添加性别选项
        .AddItem "男"
        .AddItem "女"
    End With
    If flag = 1 Then                           '判断为添加信息
        Me.Caption = "添加" + Me.Caption
        Gender.ListIndex = 0
        SQL = "select * from PersonNum"
        Set rs = TransactSQL(SQL)
        num = rs(0)
        num = num + 1
        temp = Right(Format(10000000 + num), 7)
        Me.ID = "P" & temp
        rs.Close
    ElseIf flag = 2 Then                      '判断为修改信息
        Set rs = TransactSQL(gSQL)
        If rs.EOF = False Then
        With rs
            Me.ID = rs(0)
            Me.StuffName = rs(1)
            Me.Gender = rs(2)
            Me.Place = rs(3)
            Me.Age = rs(4)
            Me.Birthday = rs(5)
            Me.Degree = rs(6)
            Me.Speciality = rs(7)
            Me.Address = rs(8)
            Me.Code = rs(9)
            Me.Tel = rs(10)
            Me.Email = rs(11)
            Me.WorkTime = rs(12)
            Me.InTime = rs(13)
            Me.Dept = rs(14)
            Me.PayTime = rs(15)
            Me.Position = rs(16)
            Me.Re = rs(17)
        End With
        rs.Close
        Me.Caption = "修改" & Me.Caption
        Me.ID.Enabled = False
        Me.StuffName.Enabled = False
        Else
            MsgBox "目前没有员工！", vbOKOnly + vbExclamation, "警告！"
        End If
    End If
End Sub这段代码里的num = rs(0)说出错了，调试的结果说BOF或EOF中的一个是“真”，或者当前的记录已删除，所需要的操作要求一个当前的记录。我不知道怎么修改，

Answer 1

数据库里无记录？用以下方式处理
1.
.
.
Set rs = TransactSQL(SQL)
If rs.BOF And rs.EOF Then
   exit sub
endif
num = rs(0) 
.
.
2.
.
.
Set rs = TransactSQL(SQL)
If rs.RecordCount<=0 Then
   exit sub
endif
num = rs(0) 
.
.

Answer 2

pls refer the above's advice

Answer 3

Set rs = TransactSQL(gSQL) 
    If rs.recordcount>0 Then 
        With rs 
            Me.ID = rs(0) 

Answer 4

应该用 rs.BOF And rs.EOF，
rs.RecordCount 受到游标类型的影响。

Answer 5

ado中还是不用recordcount的好...
dao中直接用recordcount最好...

Answer 6

Set rs = TransactSQL(SQL) <== 有结果集吗?

Answer 7

        Me.Caption = "添加" + Me.Caption 
        Gender.ListIndex = 0 
        SQL = "select * from PersonNum" 
        Set rs = TransactSQL(SQL)
        If rs.EOF Then
            num = 1
        Else
            num = rs(0) + 1
        End If 
        temp = Right(Format(10000000 + num), 7) 
        Me.ID = "P" & temp 
        rs.Close

Answer 8

if not rs.eof then num = rs(0)