- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 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
процедура дополняет массив новым элементом
RaZeR 10.01.2011 16:23 # 0
TEEN 12.01.2011 12:35 # 0
Lure Of Chaos 12.01.2011 14:51 # 0
Surendil 17.04.2011 13:42 # 0