PDA

Vollständige Version anzeigen : Eintrag TreeView


Erich290607
19.08.2009, 07:20
Hallo,

verstehe nicht warum dieser Code nicht funktioniert?

habe probiert im Direktbereich erhalte ich Daten, nur der Focus wird nicht aufs Label gesetzt. Keine Fehlermeldung


'//Eintrag im Baum anzeigen bei Click
Dim i As Long
Dim objSB As Object

Set objSB = Me!TVSB.Object

If Me!xxtSB > 0 Then
For i = 1 To objSB.Nodes.Count
If objSB.Nodes(i).Text = Me!xxtSB Then
objSB.HideSelection = False
Me!TVSB.SetFocus
objSB.Nodes(i).EnsureVisible
objSB.Nodes(i).Selected = True
Exit For
End If
Next i
Debug.Print xxtSB
End If

End Sub

J_Eilers
19.08.2009, 07:35
Moin,

Sicher, dass es der Text und nicht der Key ist? Ich würde den Schleifendurchlauf übrigens so machen:

Dim tV As TreeView
Dim n As Node
Dim crit As Long

If Me!xxtSB > 0 Then
Set tV = Me!TVSB.Object
crit = Me!xxtSB
For Each n in tV.Nodes
If n.Text = crit Then
n.Selected = True
MsgBox "Eintrag gefunden"
Exit For
End If
Next n
Set tV = Nothing
End If

Erich290607
19.08.2009, 09:59
Habe deinen Schleifendurchlauf mal getestet.

Ergebnis s. Bild (Typen unverträglich) n.Text gibt die Maschine an, nicht die StörnummerID aus xxtSB

Bei "Integer" erhalte ich Überlauf!

CptChaos
19.08.2009, 10:04
n.Text sieht für mich verdächtig nach einem String aus.
crit hast Du als Long deklariert.

Du versucht gerade Äpfel mit Birnen zu vergleichen ;)

Erich290607
19.08.2009, 10:08
Schei..............

Danke, euch das wars! warum hat mein Code nicht funktioniert?