Hallo liebes Forum.
Ich lasse mir ein TreeView aus einer Access-Datenbank füllen. Das klappt auch wunderbar, allerdings werden mir die Variablen
"tnr" (Zeile 28) und "tnp" (Zeile 33)
im VisualStudio gekennzeichnet als "verwendet, bevor ein Wert zugewiesen ist", was mit eine unschöne Hinweis-Meldung erzeugt.
Habt ihr einen Rat für mich?
Hier mein Code zum Füllen des TreeView. Die "Problemstelle" bezieht sich auf die Zeilen 14-35.
Ich lasse mir ein TreeView aus einer Access-Datenbank füllen. Das klappt auch wunderbar, allerdings werden mir die Variablen
"tnr" (Zeile 28) und "tnp" (Zeile 33)
im VisualStudio gekennzeichnet als "verwendet, bevor ein Wert zugewiesen ist", was mit eine unschöne Hinweis-Meldung erzeugt.
Habt ihr einen Rat für mich?
Hier mein Code zum Füllen des TreeView. Die "Problemstelle" bezieht sich auf die Zeilen 14-35.
VB.NET-Quellcode
- Public Function DB_tree_lesen(ByVal Datenbank As String, Tabelle As String, TV As TreeView) As String
- Try
- TV.Nodes.Clear()
- DB_connect(Datenbank)
- con.Open()
- Select Case My.Settings.AppMode
- Case "User"
- sql_string = "SELECT * FROM `" & Tabelle & "` WHERE (Aktiv = True) AND (nur_admin = False) ORDER BY `Bezeichnung`"
- Case "Admin"
- sql_string = "SELECT * FROM `" & Tabelle & "` WHERE (Aktiv = True) ORDER BY `Bezeichnung`"
- End Select
- sql_cmd = New OleDb.OleDbCommand(sql_string, con)
- reader = sql_cmd.ExecuteReader
- While reader.Read
- Dim tnr As TreeNode
- Dim tnp As TreeNode
- Dim tnc As TreeNode
- Dim tntyp As String
- tntyp = reader("Typ").ToString()
- 'root
- If tntyp = "r" Then
- tnr = New TreeNode(reader("Bezeichnung").ToString())
- TV.Nodes.Add(tnr)
- End If
- 'parents
- If tntyp = "p" Then
- tnp = New TreeNode(reader("Bezeichnung").ToString())
- tnr.Nodes.Add(tnp)
- End If
- 'childs
- If tntyp = "c" Then
- tnc = New TreeNode(reader("Bezeichnung").ToString())
- tnp.Nodes.Add(tnc)
- End If
- End While
- con.Close()
- Return "OK"
- Catch ex As Exception
- con.Close()
- Msg_ex(ex)
- Debug_msg("Tree aus DB lesen", ex.Message)
- Return "nicht ok"
- End Try
- End Function
"Na, wie ist das Wetter bei dir?"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"
"Caps Lock."
"Hä?"
"Shift ohne Ende!"
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „tragl“ ()