Hur gör man ytterligare nivåer i treeviewer?
<code>
Set FieldNode = Nodes.Add(TableNode.Index, tvwChild, , Rst("COLUMN_NAME") & Chr(32) & Tecken(strText) & Chr(32) & Langd(Rst("CHARACTER_MAXIMUM_LENGTH")))
</code>
här ligger två strängar som jag ville ha under tvwChilden.

<code>
Set FieldNode = Nodes.Add(TableNode.Index, tvwChild, , Rst("COLUMN_NAME") & Chr(32) & Tecken(strText) & Chr(32) & Langd(Rst("CHARACTER_MAXIMUM_LENGTH")))
Nodes.Add FieldNode.Index, tvwChild, , "Värde 1"
Nodes.Add FieldNode.Index, tvwChild, , "Värde 2"
</code>

Det blev ju kanon.
Nu är det bara en sak kvar...
Den undre noden skall bara visas om rs inte innehåller tal.
Så här försöker jag:
<code>
Set FieldNode = Nodes.Add(TableNode.Index, tvwChild, , Rst("COLUMN_NAME")) ' & Chr(32) & Tecken(strText) & Chr(32) & Langd(Rst("CHARACTER_MAXIMUM_LENGTH")))
Nodes.Add FieldNode.Index, tvwChild, , "Fält typ " & " " & Tecken(strText)
If Rst("COLUMN_NAME") <> 3 Then
Nodes.Add FieldNode.Index, tvwChild, , "Fält längd " & " " & Langd(Rst("CHARACTER_MAXIMUM_LENGTH"))
End If
</code>
3:an fick jag ifrån att den ville visa en 3:a istället för att skriva ut "Tal".
Kanske inte det snyggaste men.
Hur bör jag göra för att fömma den noden om det är ett tal?

Klart...
<code>
If Len(Rst("CHARACTER_MAXIMUM_LENGTH")) > 0 Then
</code>
Tack Andreas för din hjälp