vb6中不可選的參數

爲什麼我得到這個錯誤？這段代碼是正確的，但爲什麼？vb6中不可選的參數

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

如何解決這個問題？

來源

2013-04-09 Handy Manny

哪種說法是生成錯誤？ – 2013-04-09 07:35:10

突出顯示黃色：「私人子...」突出顯示藍色：「項目=」 – 2013-04-09 08:03:24

您能否顯示'Item' – 2013-04-09 08:11:58

您是否聲明Item？

嘗試聲明：

Dim Item as listitems

來源

2013-04-09 08:17:56 scarface23

很棒的聲明！謝謝... – 2013-04-09 08:18:45

@HandyMannyand總是使用'Option Explicit'！它會立即標記此錯誤。 – Deanna 2013-04-09 08:46:09

vb6中不可選的參數

回答

相關問題