---

Hilfe!
Ich möchte aus einer DB ein TreeView füllen. Alles kein Problem, wenn ich nicht gleich beim Befüllen auch die Checkboxen anhaken müsste.

Set nNode = TVObjektbaum.Nodes.Add(, , sGewerkkey, sGewerk, 1)
If record!Status = "true" Then
nNode.Checked = True
Else
nNode.Checked = False
End If

An sich ne sichere Sache dachte ich. Mit .bold oder allen anderen Eigenschaften haut es hin, nur nicht mit .checked, die Checkboxen bleiben unberührt.

Ich wäre um einen Tipp ztu diesem Thema sehr dankbar.

------------------
...so long and thanx for all the fish!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Marv,

warum haste 'If record!Status = "true" Then' das "true" als String drinne?
Bei mir tut' sowas in etwa:

Code:

---

Private Sub UserForm_Initialize()
  Dim n As Node, i%, b As Boolean
  b = 1
  With TreeView1
    .CheckBoxes = True
    Set n = .Nodes.Add(, , , "A")
    n.Checked = 1: n.Expanded = 1
    For i = 1 To 3
      Set n = .Nodes.Add(1, tvwChild, , "A" & CStr(i))
      If b Then
        n.Checked = 1
      Else: n.Checked = 0
      End If
    Next
  End With
End Sub

---

CU Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP