object不支持此属性或方法

Question

我有一个名为bankBr的BankBranch类型的对象，我试图填写一个名为list branch的数组。但我得到一个错误：＆＃34; object doesnt support this prpoperty or method＆＃34;

    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是一个Object，您需要在分配对象时使用Set关键字。否则，VB会调用对象的默认属性，如果不存在，则会抛出错误，如您所述。