Школоло / Говнокод #5204 Ссылка на оригинал

0

  1. 1
  2. 2
  3. 3
  4. 4
  5. 5
  6. 6
  7. 7
  8. 8
  9. 9
  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 Lure Of Chaos, (Updated )

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

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

Семь раз отмерь — один отрежь, guest!

    А не использовать ли нам bbcode?

    ↑
    8
    ↓