从包含它的另一个 object 中访问 object 属性

Question

我会尽我所能用我有限的知识来解释它......我有一个方阵，相同数量的行和列，我需要遍历它并以某种方式存储每个单元格的信息，我以前用 arrays 做过，并且一切正常，但我正在努力提高我的编码技能，而且我已经知道对象通常是通往 go 的方式......这是我的第二次尝试经过很长一段时间只是因为被打败而没有尝试......

问题是……我有 2 个对象，一个叫 Proveedor，这个人将有 3 个属性：
Unidad Decisoria_Prov：一个字符串
Responsable_Prov：一个字符串
Requerimientos：Vinculo 对象数组

Private pedidos_() As Vinculo
Private ud_P As String
Private responsable_P As String
Option Explicit
Public Property Let Requerimientos(index As Integer, str As Vinculo)
    If index > UBound(pedidos_) Then ReDim Preserve pedidos_(index)
    If pedidos_(index) Is Nothing Then
        Set pedidos_(index) = New Vinculo
    End If
    
    Set pedidos_(index) = str
End Property
Public Property Get Requerimientos(index As Integer) As Vinculo
    If index > UBound(pedidos_) Then Requerimientos = "El indice del get esta fuera de rango": Exit Property

    Requerimientos = pedidos_(index)
    
End Property

Public Property Let Unidad_Decisoria_Prov(str As String)
    ud_P = str
End Property
Public Property Get Unidad_Decisoria_Prov() As String
    Unidad_Decisoria_Prov = ud_P
End Property

Public Property Let Responsable_Prov(str As String)
    responsable_P = str
End Property
Public Property Get Responsable_Prov() As String
    Responsable_Prov = responsable_P
End Property

Private Sub class_initialize()
    ReDim pedidos_(0)
End Sub

另一个 object 名为 Vinculo，这个有 3 个属性：
Unidad Decisoria_C：一个字符串
Responsable_C：一个字符串
要求：一个字符串

Private ud_ As String
Private responsable_ As String
Private requerimiento_ As String
Option Explicit

Public Property Let Unidad_Decisoria_C(str As String)
    ud_ = str
End Property
Public Property Get Unidad_Decisoria_C() As String
    Unidad_Decisoria_C = ud_
End Property

Public Property Let Responsable_C(str As String)
    responsable_ = str
End Property
Public Property Get Responsable_C() As String
    Responsable_C = responsable_
End Property

Public Property Let Requerimiento(str As String)
    requerimiento_ = str
End Property

Public Property Get Requerimiento() As String
    Requerimiento = requerimiento_
End Property

一旦我让对象按预期工作，我将遍历矩阵并对数据执行我需要的操作，但在浪费时间之前，我尝试使用以下代码对其进行测试：

Sub testing_2_objetosjuntos()
Dim mi_Prov As Proveedor
Dim un_vin As Vinculo

Set mi_Prov = New Proveedor
Set un_vin = New Vinculo

mi_Prov.Unidad_Decisoria_Prov = "tarea del proveedor 1"
mi_Prov.Responsable_Prov = "responsable de la tarea del proveedor 1"

un_vin.Unidad_Decisoria_C = "tarea del cliente 1"
un_vin.Responsable_C = "responsable de la tarea 1 del cliente"
un_vin.Requerimiento = "hace tal cosa"
mi_Prov.Requerimientos(0) = un_vin

Debug.Print mi_Prov.Requerimientos(0).Requerimiento
Debug.Print mi_Prov.Requerimientos(0).Responsable_C
End Sub

根据 debug.print 命令，一切正常，据我所知...一直观察到第一行 debug.print

然而，当我尝试访问存储在 Proveedor object 的第一个索引中的 vinculo object 的属性时，我得到了一个漂亮的

运行时错误 91：Object 变量或 With 块变量未设置

给我这个错误的实际行是 Proveedor class 中 Requerimientos 的 get 属性。

这可能是一个愚蠢的问题，但不仅我不明白为什么它会崩溃，我显然无法在谷歌中正确地问这个问题而不必打扰你们......

我希望读取存储在 vinculo.Requerimiento 属性中的字符串，该属性位于 Proveedor object 的 Requerimientos 属性数组的第一个索引中。

Answer 1

您的问题的原因很容易解决。 由于Vinculo是 object，因此您需要在Requerimientos -getter 中使用Set关键字：

Public Property Get Requerimientos(index As Integer) As Vinculo
    Set Requerimientos = pedidos_(index)
End Property

但是，您的错误处理将失败：如果index > UBound(pedidos_) ，您将分配一个 String 作为返回值，这是不允许的（请记住，您的 function 返回类型为 Vinculo 的Vinculo ，而不是 String）。
你应该提出一个错误

Public Property Get Requerimientos(index As Integer) As Vinculo
    Err.Raise vbObjectError + 1000, "El indice del get esta fuera de rango", "Sorry..."
    Set Requerimientos = pedidos_(index)
End Property

还有一个提示：您在识别测试例程的错误时遇到了问题，因为 VBA 运行时没有在错误行停止。 这是因为 VBA 调试器的默认设置是“Break on unhandled errors” ，它不包括在 class 模块内中断（提示：用户窗体也是类）。 将此设置更改为“Break in class modules”以查看发生错误的确切行。

工具->选项->常规