Excel VBA，錯誤“ 438”“對象不支持此屬性或方法”

Question

我確定我在這里有點厚，但是我一生都無法理解為什么會發生此運行時錯誤。 這是代碼：

Public Sub fRTWIni()

Dim varList As Variant
Dim intR As Integer
Dim con As Control

varList = fGetList("ct_adt_RTWYesNo", "ORDER BY RTWYesNo ASC")

For Each con In UF_ReturnToWork.frmRTW.Controls
    If TypeName(con) = "ComboBox" And con.Name <> "cbRTWHH" And con.Name <> "cbRTWMM" Then
        con.ColumnCount = 2
        con.ColumnWidth = 0
        For intR = LBound(varList, 2) To UBound(varList, 2)
            con.AddItem intR
            con.Column(1, intR) = varList(1, intR)
        Next intR
    End If
Next con

End Sub

錯誤發生在線：

For Each con In UF_ReturnToWork.frmRTW.Controls

UF_ReturnToWork是一個用戶UF_ReturnToWork 。 frmRTW是一個框架。

我已經多次使用這種方法通過用戶窗體/框架來訪問控件，而對於現在為什么不能使用它，我感到非常困惑。

據我所知以及我的研究， .Controls是對象的成員，因此我無法理解為什么它不允許我使用它。

任何想法為什么會發生錯誤？

謝謝加雷斯

Answer 1

錯誤是在：

con.ColumnWidth = 0

應該

con.ColumnWidths = 0