关于函数的参数使用，请高手指点

Question

Private Sub displayInfo(rs)
    lable_id.Caption = rs.Fields(0).Value
    iId = rs.Fields(0).Value
    strBak(0) = rs.Fields(0)
    For i = 1 To 22
        If Len(rs.Fields(i)) > 0 Then
        Text1(i).Text = rs.Fields(i).Value
        strBak(i) = Text1(i).Text
        End If
    Next i
End Sub这个参数我该怎么写，才最好呢？

Answer 1

Private Sub displayInfo(byval rs as adodb.recordset)
有点看不懂你的意思？什么参数？\\

Answer 2

Private Sub displayInfo(byval rs as adodb.recordset)
  End Sub

Answer 3

displayInfo (rs) '为什么说我这里类型不匹配？？.......
Private Sub displayInfo(ByVal subRs As adodb.Recordset)
    lable_id.Caption = subRs.Fields(0).Value
    
    iId = subRs.Fields(0).Value
    
    'MsgBox iId
    
    
    strBak(0) = subRs.Fields(0)
    For i = 1 To 22
        If Len(subRs.Fields(i)) > 0 Then
        Text1(i).Text = subRs.Fields(i).Value
        
        strBak(i) = Text1(i).Text
        End If
    Next i
    
End Sub

Answer 4

调用displayInfo (rs)
时保证rs是一个adodb.Recordset
而且已经打开了

Answer 5

Private Sub Form_Load()
Dim rs As adodb.Recordset
Set rs = con.Execute("select * from t_landrent")    displayInfo (rs)
    
End Sub我打开了~~~啊

Answer 6

call displayInfo (rs)
    或
displayInfo rs
    试试

Answer 7

Private Sub displayInfo(byval rs as adodb.recordset)
    lable_id.Caption = rs.Fields(0).Value
    iId = rs.Fields(0).Value
    strBak(0) = rs.Fields(0)
    For i = 1 To 22
        If Len(rs.Fields(i)) > 0 Then
        Text1(i).Text = rs.Fields(i).Value
        strBak(i) = Text1(i).Text
        End If
    Next i
End Sub

Answer 8

call 这个函数时用 ByVal

Answer 9

怎么会是用byval呢？
Private Sub displayInfo(byref rs as adodb.recordset)