Springen naar inhoud


- - - - -

Treeview type mismatch


  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 Insanity01

Insanity01

    Starting Developer

  • Leden
  • 7 berichten
    Laatst bezocht 16 jun 2011 17:55

Geplaatst op 16 juni 2011 - 17:56

Zou iemand mij kunnen zeggen waarom ik hier een type mismatch error krijg?

Visual Basic Code:
Private Sub Form_Load()
Dim sqlq As String
Dim vdb As DAO.Database
Dim vrst As DAO.Recordset
Dim nodx As Node
Dim lngGroepID As Long


sqlq = "SELECT tblGroep.fldGroep, tblEigenschap.fldEigenschapID, tblEigenschap.fldEigenschap, tblgroep.fldGroepID, tblEigenschap.fldOmschrijving "
sqlq = sqlq & "FROM tblGroep LEFT JOIN tblEigenschap ON (tblGroep.fldGroepID = tblEigenschap.fldGroepID) AND (tblGroep.fldGroepID = tblEigenschap.fldGroepID)"

Set vdb = CurrentDb
Set vrst = vdb.OpenRecordset(sqlq, dbOpenDynaset, dbSeeChanges)

If Not (vrst.BOF And vrst.EOF) Then
	vrst.MoveFirst
		Do While Not vrst.EOF
			lngGroepID = vrst!fldGroepID
			Set nodx = Treeview.Nodes.Add(, , "R" & LTrim(Str(vrst!fldGroepID)), vrst!fldGroep)
			
			Do While lngGroepID = vrst!fldGroepID
			If Not IsNull(vrst!fldEigenschapID) Then
				Set nodx = Treeview.Nodes.Add("R" & LTrim(Str(vrst!fldGroepID)), tvwChild, "R" & LTrim(Str(vrst!fldGroepID)) & "E" & LTrim(Str(vrst!fldEigenschapID)), vrst!fldEigenschap)
			End If
			vrst.MoveNext
				If vrst.EOF Then
					Exit Do
				End If
			Loop
		Loop
End If

Op deze lijn : LTrim(Str(vrst!fldGroepID)), tvwChild, "R" & LTrim(Str(vrst!fldGroepID)) & "E" & LTrim(Str(vrst!fldEigenschapID)), vrst!fldEigenschap)

#2 SilentBob

SilentBob

    Professional Developer

  • Leden
  • PipPipPipPip
  • 360 berichten
    Laatst bezocht
  • LocatieHome

Geplaatst op 17 juni 2011 - 09:12

Wat zijn de parameters die je moet meegeven aan Treeview.Nodes.Add()?
Wat is tvwChild? Vind dit nergens terug.




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)