vb6 中参数不是可选的

Question

为什么我会收到此错误？

    Private Sub loadEmployee()
    With frmEmployee.lvEmployee.ListItems
    Call connect
    'SQL = "SELECT * FROM tblemployee "
    Rs.Open "SELECT * FROM tblemployee ", Conn, adOpenDynamic, adLockOptimistic
      If Not Rs.EOF Then
        Rs.MoveLast
        Set Item = lvEmployee.ListItems.Add(1, , Rs!id)
            Item.SubItems(2) = Rs!firstname
            'Item.SubItems(2) = Rs!middlename
            Item.SubItems(3) = Rs!lastname
            Item.SubItems(4) = Rs!agename
            Item.SubItems(5) = Rs!gender
            Item.SubItems(6) = Rs!address
            Item.SubItems(7) = Rs!datehired
            Item.SubItems(8) = Rs!birthdate
            Item.SubItems(9) = Rs!birthplace
            Item.SubItems(10) = Rs!citizenship
            Item.SubItems(11) = Rs!cellno
            Item.SubItems(12) = Rs!Status
            Item.SubItems(13) = Rs!basicsalary
            Item.SubItems(14) = Rs!designation
            Item.SubItems(15) = Rs!department
            'Item.SubItems(16) = Rs!m_name
            'Item.SubItems(17) = Rs!m_occupation
            'Item.SubItems(18) = Rs!n_spouse
            'Item.SubItems(19) = Rs!dependents
            'Item.SubItems(20) = Rs!SSS
            'Item.SubItems(21) = Rs!PHILHEALTH
            'Item.SubItems(22) = Rs!PAGIBIG
            Item.EnsureVisible
      End If
      Rs.Close
      Conn.Close
      Set Conn = Nothing
     End With
    End Sub

错误：

Arguments not optional

当我调用该函数时出现此错误。我这样称呼它：

Private Sub Form_Load()
loadEmployee
End Sub

“Private sub...”突出显示为黄色，“Item=”突出显示为蓝色。

我该如何解决这个问题？

Answer 1

你宣布

Item

了吗？

尝试声明：

Dim Item as listitems

Answer 2

它缺少声明一个值，例如我创建了一个具有12个值的方法，我必须在方法调用中引用相同的值。