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

    • ava RaZeR 10.01.2011 16:23 # 0

      Прямо как Александр Блок.
      Ответить

    • ava TEEN 12.01.2011 12:35 # 0

      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
...
      Ответить

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