Datagridview gruppieren

menorca · 7. Oktober 2013, 11:23

Hallo Forum,

könnt ihr mir helfen?

unten habe ich ein Treeview mit Daten gefüllt, so ähnlich möchte ich eine Datagridview aufbauen bzw. gruppieren.
wie gehe ich da vor?

Spoiler anzeigen

Brainfuck-Quellcode

Public Sub _FillTeilestamm()
tvteilestamm.Nodes.Clear()
Dim Daten As String
Daten = ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\........\FSKFehlererfassung.mdb")
Dim conn As New OleDb.OleDbConnection(Daten)
conn.Open()
Me.Cursor = Cursors.WaitCursor
Dim cmd As New OleDb.OleDbCommand("SELECT tabTeilestamm.TeilestammID," & _
"tabModule.ProduktID, " & _
"tabModule.Bezeichnung," & _
"tabTeilestamm.Teilenummer," & _
"tabTeilestamm.Teilename " & _
"FROM tabTeilestamm LEFT JOIN tabModule " & _
"ON tabTeilestamm.IDProdukt=tabModule.ProduktID " & _
"GROUP BY tabTeilestamm.TeilestammID,tabModule.ProduktID, " & _
"tabModule.Bezeichnung,tabTeilestamm.Teilenummer, " & _
"tabTeilestamm.Teilename", conn)
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader()
Dim K As String
Dim K0 As String = "" ' für Gruppenwechsel Module
Dim T As String
Dim T0 As String = "" ' für Teilenummer
'-----------------------------------------------------------------------
Dim KN As TreeNode ' für Knoten Module
Dim AN As TreeNode ' Teilenummer anhängen
Try
While dr.Read()
K = dr.GetValue(2) 'ROOT Node
T = dr.GetValue(0) & "|" & dr.GetValue(3) & " ( " & dr.GetValue(4) & " )"
If K <> K0 Then
KN = tvteilestamm.Nodes.Add(K)
KN.ImageIndex = 0
KN.SelectedImageIndex = 0
K0 = K
End If
AN = KN.Nodes.Add(T)
AN.ImageIndex = 1
AN.SelectedImageIndex = 1
'fn.ForeColor = Color.Red
End While
Catch ex As Exception
Finally
End Try
dr.Close()
conn.Close()
Me.Cursor = Cursors.Default
End Sub

Lingo · 7. Oktober 2013, 11:29

VB BB-Code benutzen

VB.NET-Quellcode

Public Sub _FillTeilestamm()
tvteilestamm.Nodes.Clear()
Dim Daten As String
Daten = ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\........\FSKFehlererfassung.mdb")
Dim conn As New OleDb.OleDbConnection(Daten)
conn.Open()
Me.Cursor = Cursors.WaitCursor
Dim cmd As New OleDb.OleDbCommand("SELECT tabTeilestamm.TeilestammID," & _
"tabModule.ProduktID, " & _
"tabModule.Bezeichnung," & _
"tabTeilestamm.Teilenummer," & _
"tabTeilestamm.Teilename " & _
"FROM tabTeilestamm LEFT JOIN tabModule " & _
"ON tabTeilestamm.IDProdukt=tabModule.ProduktID " & _
"GROUP BY tabTeilestamm.TeilestammID,tabModule.ProduktID, " & _
"tabModule.Bezeichnung,tabTeilestamm.Teilenummer, " & _
"tabTeilestamm.Teilename", conn)
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader()
Dim K As String
Dim K0 As String = "" ' für Gruppenwechsel Module
Dim T As String
Dim T0 As String = "" ' für Teilenummer
'-----------------------------------------------------------------------
Dim KN As TreeNode ' für Knoten Module
Dim AN As TreeNode ' Teilenummer anhängen
Try
While dr.Read()
K = dr.GetValue(2) 'ROOT Node
T = dr.GetValue(0) & "|" & dr.GetValue(3) & " ( " & dr.GetValue(4) & " )"
If K <> K0 Then
KN = tvteilestamm.Nodes.Add(K)
KN.ImageIndex = 0
KN.SelectedImageIndex = 0
K0 = K
End If
AN = KN.Nodes.Add(T)
AN.ImageIndex = 1
AN.SelectedImageIndex = 1
'fn.ForeColor = Color.Red
End While
Catch ex As Exception
Finally
End Try
dr.Close()
conn.Close()
Me.Cursor = Cursors.Default
End Sub

menorca · 7. Oktober 2013, 11:53

was habe ich falsch gemacht?

RodFromGermany · 7. Oktober 2013, 12:29

menorca schrieb:

falsch gemacht

@Lingo: ist der Meinung, dass Du den [VB]-Tag an Stelle des [code]-Tags hättest nehmen sollen.
Leider war er nicht in der Lage, dies vernünftig zum Ausdruck zu bringen.

menorca · 7. Oktober 2013, 12:45

Hallo Rod,

hast du denn einen Ansatz für mein vorhaben eine Datgridview zu gruppieren

sonne75 · 7. Oktober 2013, 12:48

Ein DataSet im Designer zusammenstellen (mit der gleichen Struktur), aus der Datenbank füllen (mit .Fill-Extension, da den Connection-String eintragen, bei den Eigenschaften), an das DGV binden - fertig.

RodFromGermany · 7. Oktober 2013, 12:51

Nein, sonst hätte ich Dir geantwortet. Lass mal den @ErfinderDesRades: hier reinsehen.

VB1963 · 8. Oktober 2013, 04:38

Mit LinqToDataset und einem 2. DGV, wo die Gruppierung visualisiert wird, könnte man so etwas umsetzen...
(soferne ein typ. Dataset vorhanden ist)

xc3p0 · 9. Oktober 2013, 10:26

Einfach einen DataReader erstellen, und diesen dann auf das GridView lassen, mithilfe einer Schleife.

VB.NET-Quellcode

If Data.HasRows Then
Do While Data.Read
Object.Items.Add(Data(deinWert).ToString)
Loop
End If

Datagridview gruppieren

Datagridview gruppieren

Brainfuck-Quellcode

VB.NET-Quellcode

menorca schrieb:

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben