Как использовать Пуатье (ссылки) в VBA для каждого L oop?

Question

Когда я запускаю следующий код, источник etapasArray не изменяет свои собственные значения!

Массив etapasArray имеет доступ к каждому элементу как etapasArray(i)(j).

This это подфункция:

'etapasArray is accessed as etapasArray(i)(j) and etapaRow was declared as Variant
Public Sub setDatasPLANO()
    For Each etapaRow In etapasArray
        If etapaRow(oFolhaPlaneamento.positionElement("PERCENTAGEM")) < 1 Then
            etapaRow(oFolhaPlaneamento.positionElement("PLANO_INICIO")) = 1
        End If
    Next
End Sub

Он правильно читает существующие значения, но конечный etapasArray никогда не получает номер 1 в нем! Есть идеи?

Answer 1

вы ничего не пишите в etapasArray в этом коде, не так ли? Вы хотите сделать:

etapasArray(oFolhaPlaneamento.positionElement("PLANO_INICIO")) = 1

Вместо

etapaRow(oFolhaPlaneamento.positionElement("PLANO_INICIO")) = 1

Если нет, тогда я не совсем понимаю, что вы имеете в виду, извините.