Hallo,
ich arbeite gerade an einer Übersicht für unsere Firmenstruktur.
Ich möchte hierzu ein Treeview verwenden.
dem View werden die Nodes beim laden des Programms hinzugefügt um immer aktuell zu sein.
Die Struktur soll sein:
Bereich, Bereichsleitung, Teamleitung, Teammember
soweit der Plan...
Problem:
Ich bin mir nicht sicher ob das System so wie ich es mache sinnvoll ist
wie kann ich Überprüfen ob es einen vorherigen node gibt, bzw. welcher das ist?
Wenn also einem MA noch kein Bereich in der DB zugeordnet wurde, kann ich ihn ja nicht in seinem Bereich, seinem Leiter geschweige denn seinem Team darstellen. Er müßte dann also unter dem Stamm stehen...
Code:
anlegen des Bereich Stamms:
hinzufügen des SL zum Bereich:
ich arbeite gerade an einer Übersicht für unsere Firmenstruktur.
Ich möchte hierzu ein Treeview verwenden.
dem View werden die Nodes beim laden des Programms hinzugefügt um immer aktuell zu sein.
Die Struktur soll sein:
Bereich, Bereichsleitung, Teamleitung, Teammember
soweit der Plan...
Problem:
Ich bin mir nicht sicher ob das System so wie ich es mache sinnvoll ist
wie kann ich Überprüfen ob es einen vorherigen node gibt, bzw. welcher das ist?
Wenn also einem MA noch kein Bereich in der DB zugeordnet wurde, kann ich ihn ja nicht in seinem Bereich, seinem Leiter geschweige denn seinem Team darstellen. Er müßte dann also unter dem Stamm stehen...
Code:
anlegen des Bereich Stamms:
Code:
Dim cmdLoadSection As New SqlCommand("SELECT Bereichsname, BereichsID FROM MDB_Bereiche", DB_CN) Dim dr As SqlDataReader = cmdLoadSection.ExecuteReader() While dr.Read Dim tn As TreeNode = New TreeNode() tn.Text = dr("Bereichsname").ToString() tn.Tag = dr("BereichsID").ToString() TeamView.DB_Tree.Nodes.Add(tn) End While dr.Close()
Code:
Dim ix As Integer For ix = 0 To x - 1 Dim cmdLoadSectionLeader As New SqlCommand("SELECT MDB_SL.SL_Nachname, MDB_SL.SL_Id FROM DB_SL INNER JOIN MDB_Bereiche ON MDB_SL.SL_Id = MDB_Bereiche.Bereichs_SLID WHERE (MDB_Bereiche.Bereichsname = '" + TeamView.Tree.Nodes(ix).Text.ToString + "')", DB_CN) ' Dim dr2 As SqlDataReader = cmdLoadSectionLeader.ExecuteReader() While dr2.Read() Dim tn2 As TreeNode = New TreeNode() tn2.Text = dr2("SL_Nachname").ToString() tn2.Tag = dr2("SL_ID").ToString() TeamView.DB_Tree.Nodes(ix).Nodes.Add(tn2) End While dr2.Close()
Comment