PUBLIC tabellenname as string
 
Private Sub TreeView_NodeClick(ByVal Node As MSComctlLib.Node)
On Error GoTo Weiter
If Node.Children <= 0 Then
    Tabellenname = Node.Parent
    Featurename = Node
    Call Auslesen(Tabellenname, Featurename)
End If
Exit Sub
 
Weiter:
Tabellenname = Node                            'speichert den namen des 
' angeklickten roots
End Sub
 
Private Sub cmdNewFeature_Click()
Dim SName As String
 
'On Error GoTo Fehler
 
If Tabellenname <> "" Then
    SName = InputBox("Wie soll das neue Feature in " + Tabellenname + " _ " & _
      "heißen?", "Neues Feature erstellen")
        If SName = "" Then
            MsgBox ("Bitte gültigen Namen eingeben")
            Exit Sub
        End If
 
    frmProgress.Command1.Enabled = False
 
    TreeView.Nodes.Add Tabellenname, tvwChild, , SName
End Sub

Press any key to continue or any other key to quit...