artikelen toevoegen

'verander cmdToevoegen naar de naam van jouw knopje.
Private Sub cmdToevoegen_Click()
'declareer een soort van teller voor het aantal regels
Dim nRegels As Integer
'en een teller voor de lus
Dim X As Integer
'kijk hoeveel regels er in de listbox staan.
nRegels = Me.lstFactuur.ListCount
'maak een 2 dimensionale array. Je snapt denk ik wel waarom je
'ReDim moet gebruiken. Anders moet je het ff vragen
ReDim arrRegel(nRegels, 3)
'zet de informatie in volgorde in de listbox. ik weet niet of je
'tekstboxen gebruikt, maar verander 't dan naar wat je wel gebruikt
arrRegel(nRegels, 0) = Me.txtAantal

arrRegel(nRegels, 1) = Me.cmbProduct
arrRegel(nRegels, 2) = Me.cmbPrijs
arrRegel(nRegels, 3) = Me.cmbBTW
'Plaats de inhoud van de listbox ook in een array
For X = 0 To nRegels - 1
  arrRegel(X, 0) = Me.lstFactuur.Column(0, X)
  arrRegel(X, 1) = Me.lstFactuur.Column(1, X)
  arrRegel(X, 2) = Me.lstFactuur.Column(2, X)
  arrRegel(X, 3) = Me.lstFactuur.Column(3, X)
Next X
'De array word nu gebruikt als gegevensbron aan de listbox
Me.lstFactuur.List = arrRegel
End Sub

'verander cmdToevoegen naar de naam van jouw knopje.
Private Sub cmdToevoegen_Click()
'declareer een soort van teller voor het aantal regels
Dim nRegels As Integer
'en een teller voor de lus
Dim X As Integer
'kijk hoeveel regels er in de listbox staan.
nRegels = Me.lstFactuur.ListCount
'maak een 2 dimensionale array. Je snapt denk ik wel waarom je
'ReDim moet gebruiken. Anders moet je het ff vragen
ReDim arrRegel(nRegels, 3)
'zet de informatie in volgorde in de listbox. ik weet niet of je
'tekstboxen gebruikt, maar verander 't dan naar wat je wel gebruikt
arrRegel(nRegels, 0) = Me.txtAantal
 
arrRegel(nRegels, 1) = Me.cmbProduct
arrRegel(nRegels, 2) = Me.cmbPrijs
arrRegel(nRegels, 3) = Me.cmbBTW
'Plaats de inhoud van de listbox ook in een array
For X = 0 To nRegels - 1
  arrRegel(X, 0) = Me.lstFactuur.Column(0, X)
  arrRegel(X, 1) = Me.lstFactuur.Column(1, X)
  arrRegel(X, 2) = Me.lstFactuur.Column(2, X)
  arrRegel(X, 3) = Me.lstFactuur.Column(3, X)
Next X
'De array word nu gebruikt als gegevensbron aan de listbox
Me.lstFactuur.List = arrRegel
End Sub