1. VisualBasic / Говнокод #5204

    −166

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    Private Sub btnNew_Click()
        Dim i As Integer
        Dim asCopy() As clsCitizen
        ReDim asCopy(LBound(modCitizen.asDB) To UBound(modCitizen.asDB)) As clsCitizen
        For i = LBound(modCitizen.asDB) To UBound(modCitizen.asDB)
            Set asCopy(i) = modCitizen.asDB(i)
        Next i
        ReDim modCitizen.asDB(UBound(modCitizen.asDB) + 1) As clsCitizen
        For i = LBound(asCopy) To UBound(asCopy)
            Set modCitizen.asDB(i) = asCopy(i)
        Next i
        Set modCitizen.asDB(UBound(modCitizen.asDB)) = New clsCitizen
        modCitizen.asDB(UBound(modCitizen.asDB)).bNew = True
        iRecNum = UBound(modCitizen.asDB)
        RecordRead
        UpdateControls
        LockMe True
    End Sub

    вот через какое место мучительно вспоминал давно забытый, старый добрый VB6

    процедура дополняет массив новым элементом

    Запостил: Lure Of Chaos, 10 Января 2011

    Комментарии (4) RSS

    • Прямо как Александр Блок.
      Ответить
    • Preserve? не?
      ReDim Preserve modCitizen.asDB(UBound(modCitizen.asDB) + 1) As clsCitizen
      Set modCitizen.asDB(UBound(modCitizen.asDB)) = New clsCitizen
      modCitizen.asDB(UBound(modCitizen.asDB)).bNew = True
      ...
      Ответить

    Добавить комментарий