對象不支持這個prpoperty或方法

Question

我有一個名爲BankBranch類型的bankBr對象，即時試圖填充名爲列表分支的數組。但IM得到一個錯誤：「object doesnt support this prpoperty or method」

While Er = 0 
     Dim bankBr As New bankBranch 
     bankBr.SetBranchName BankTable.Fields("Name") 
     bankBr.SetBranchID BankTable.Fields("ID") 
     listBranch(i) = bankBr 
     BrCount = BrCount + 1 
     i = i + 1 
     BankTable.ReadRow i, Er 

    Wend 

Answer 1

你沒有說明哪些系造成錯誤，但我的猜測是這一個：

listBranch(i) = bankBr 

試試這個：

Set listBranch(i) = bankBr 

bankBr是一個對象，在分配對象時需要使用Set關鍵字。否則，VB會調用對象的默認屬性，如果不存在，則會按照您所描述的那樣引發錯誤。