ArrTWMultiDim

Private Sub Form_Load()
Dim nodX As Node
Dim aRes(50) As String
Dim i, teller As Integer
Dim sZoeker As String
Dim sDeelTwee, sDeelEen, sArtikel As String
Dim sD1, sD2, sD3, sPr As String
Dim bGedaan, bGo As Boolean
Coo1 Me
i = 0
Dim rsArtikel As Recordset
'Open recordset the second time to look up

Set rsArtikel = dbsDatabase.OpenRecordset("ARTIKELS", dbOpenTable)
rsArtikel.Index = "ARTIKELCODE"
Set rsArtSam = dbsDatabase.OpenRecordset("ARTSAM", dbOpenTable)
rsArtSam.Index = "Artikel"
sZoeker = fArtikel.dcmaster.Recordset!groepcode & fArtikel.dcmaster.Recordset!subgroepcode & fArtikel.dcmaster.Recordset!variant
sArtikel = sZoeker
rsArtSam.Seek "=", sZoeker
bGo = True
'i count lenght of array

If Not rsArtSam.NoMatch Then
While bGo
i = i + 1
aRes(i) = rsArtSam!artikel & rsArtSam!onderdeel
Debug.Print aRes(i)
rsArtSam.MoveNext
bGo = Not rsArtSam.EOF
If bGo Then bGo = (rsArtSam!artikel = sZoeker)
Wend
End If
If i = 0 Then bGedaan = True
teller = 1
Do Until bGedaan
sDeelTwee = Right(aRes(teller), 12)
rsArtSam.Seek "=", sDeelTwee
If Not rsArtSam.NoMatch Then
bGo = True
While bGo
i = i + 1
aRes(i) = rsArtSam!artikel & rsArtSam!onderdeel ' & rsArtSam!Aantal
rsArtSam.MoveNext
If rsArtSam.EOF Then
bGo = False
Else
If Not rsArtSam!artikel = sDeelTwee Then
bGo = False
End If
End If
Wend
End If
teller = teller + 1
If teller = i + 1 Then bGedaan = True
Loop
'fill treeview with found couples

teller = 1
sD1 = Left(sArtikel, 4)
sD2 = Mid(sArtikel, 5, 4)
sD3 = Right(sArtikel, 4)
rsArtikel.Seek "=", sD1, sD2, sD3
sPr = "[" & sD1 & "." & sD2 & "." & sD3 & "] "
Set nodX = TreeView1.Nodes.Add(, , sArtikel, sPr & rsArtikel!Omsn)
Do Until teller = i + 1
sDeelEen = Left(aRes(teller), 12)
sDeelTwee = Right(aRes(teller), 12)
sD1 = Left(sDeelTwee, 4)
sD2 = Mid(sDeelTwee, 5, 4)
sD3 = Right(sDeelTwee, 4)
sPr = "[" & sD1 & "." & sD2 & "." & sD3 & "] "
rsArtikel.Seek "=", sD1, sD2, sD3
Set nodX = TreeView1.Nodes.Add(sDeelEen, tvwChild, sDeelTwee, sPr & rsArtikel!Omsn)
teller = teller + 1
Loop
'nodX.EnsureVisible

'nodX.Expanded = true

End Sub
'_________________________________________________________


Private Sub TreeView1_DblClick()
Dim i, l As Integer
i = TreeView1.Nodes.Count
For l = 1 To i
If TreeView1.Nodes(l).Selected Then
strTitel = fArtikel.dcmaster.Recordset!groepcode & "-" & fArtikel.dcmaster.Recordset!subgroepcode & "-" & fArtikel.dcmaster.Recordset!variant & " (" & fArtikel.dcmaster.Recordset!Omsn & ")"
Me.Caption = "Artikelsamenstelling '" & strTitel & "'"
End If
Next l
End Sub