rs.RecordCount 类型不匹配 求解

中庸女人

Private Sub Form_Load()
    Const conNumGrouptings = 10 '组最大值
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim i As Integer

    setHyperlinkEffect Me '超链接效果
'    CommandBars("Web").Enabled = False '禁用Web工具栏

    Me.txtCN_Name = strSoftCN_Name
    Me.Caption = strSoftCN_Name
    Me.txtEN_Name = strSoftEN_Name
    Me.txtVersionNumber = strSoftVersionNumber
    Me.txtCurrentUser = "当前用户：" & strCurrentUserName
    Me.txtEntryTime = "登录时间：" & Now()

    For i = 2 To conNumGrouptings
         Me("Option" & i).Visible = False
    Next

    strSQL = "SELECT * FROM usysItems  WHERE FItemNumber = 0  ORDER BY FGrouping"
    rs.Open strSQL, CurrentProject.Connection, adOpenKeyset

    If rs.RecordCount < 1 Then
        Option1.Controls(0).Caption = "无可用项目"
    Else
       For i = 1 To rs.RecordCount
            With Me("Option" & i)
                .Visible = True
                .Controls(0).Caption = Nz(rs![FItemText])
            End With
            rs.MoveNext
        Next
    End If
    rs.Close
    Set rs = Nothing


    Me.grpTab = Nz(DLookup("[FGrouping]", "usysItems", "FItemNumber = 0 AND [FArgument] = '默认'"), 1)
    Call grpTab_AfterUpdate
     Me.FilterOn = True
End Sub

xiangbaoan

dim n   '如此定义，变体
n=rs.RecordCount
If n < 1 Then

竹笛

在 If rs.RecordCount < 1 Then 这一行的上面加入两行代码
rs.movelast
rs.movefirst
试一试

ABC5258

竹笛 发表于 2022-6-13 09:26
在 If rs.RecordCount < 1 Then 这一行的上面加入两行代码
rs.movelast
rs.movefirst

如果是EOF，应该会出错吧，不如直接改成 if not rs.eof then省事。