Matrix aus mehreren Tabellen in DGV erstellen

Montoyafan · 20. Januar 2023, 11:45

Hallo,

vllt hat jemand eine Idee wie man das umsetzen könnte.
Ich habe über 3 Tabellen verteilt eine Art Ausbildungsstatus von Leuten stehen.
Tabelle 1 enthält die Werkzeuge:

tool_id	tool_name
1	50075
2	50080
3	50082

insgesamt ca. 400 Einträge.

Tabelle 2 enthält das Personal:

personal_id	firstname	lastname
1	Klaus	Meier
2	Ramona	Werner
3	Rene	Müller

auch hier ca. 300 Einträge.

Und dann noch eine 3. Tabelle die Personal und Werkzeug verlinkt und den Ausbildungsstand dazu enthält

matrix_id	personal_id	tool_id	status
1	1	1	2
2	2	1	2
3	3	1	3
4	1	2	1
5	2	2	1

Wir führen das aktuell als Excel-Dokument und das auf viele Arten unpraktisch.
Das sind über 400 Werkzeuge und über 300 Mitarbeiter, das ganze über 2 oder 3 Tabellenblätter verteilt. Total unübersichtlich.
So sieht das bspw. aus:

Deswegen habe ich diese Matrix in obriges Datenbankmodel überführt.
Soweit alles klein Problem.

Ich möchte jetzt nur in einem DGV diese Matrix nachbilden. Da habe ich nun ein Problem.
Personal mit Status auslesen, kein Problem. Werkzeuge auslesen und als Header ausgeben auch nicht.
Aber nur getrennt.

Ich habe jetzt nicht so wirklich eine Idee wie ich beides zusammen bekomme.

Nimmt man jetzt obrige Beispiel-Tabellen, sollte das Ergebnis dann so aussehen:

Könnt ihr mir helfen?

Danke

tragl · 20. Januar 2023, 13:01

Da wirst du nicht drum rum kommen, das DGV "manuell" zu befüllen, anstatt mit einer DataTable als Datenquelle.
Also zu erzeugst erst deine benötigten Header und holst dir dann in einer Schleife die Daten der Rows rein und erzeugst die. Dabei könntest du direkt her gehen und z.B. alle
Zellinhalte mit "0" als "" anzeigen lassen, verbessert meiner Meinung nach die Übersicht.

Problematisch wird's wenn die Anzahl deiner Header bzw. dessen Inhalt variabel ist. Denn zur Erstellung der Rows musst du wissen, was in den Headern drinne steht bzw. wofür die gedacht sind.

EDIT: evtl. geht's auch anders. Kannst du ein Testprojekt bauen und anhängen? Man könnt ggf. aus deiner verlinkten Tabelle alle Daten sauber darstellen und mit einem "Mitarbeiter-Filter" arbeiten oder einen "Werkzeug-Filter"

Montoyafan · 20. Januar 2023, 14:28

Also zur Laufzeit soll der Inhalt nur dahin gehend variabel sein, als das man die Ausbildungswerte verändern kann.
Werkzeuge und Personal kann dazu kommen. Aber nicht im Programm. Also der Header bleibt gleich solange das Programm offen ist.

Hier das Testprojekt:
Test_Matrix.zip

Es ist eine Datenbank mit ein paar Einträgen enthalten

tragl · 20. Januar 2023, 18:28

Im Anhang mal "quick & dirty".
Es werden die Daten aus der "Matrix"-Tabelle im DataGridView angezeigt. Ich habe keine einzige Zeile Code hinzufügen müssen.
Allerdings hast du schon einen Fehler in deinem Datenmodell: Es sind keine Relationen vorhanden. Fügt man diese hinzu, dann kracht's

So sieht das bei dir aktuell aus:

So gehört's: (läuft wie oben beschrieben aber nicht, weil die Daten nicht zusammenpassen)

So hätte ich's gemacht (vor allem die deutlich bessere Benamung!):

D.h. die Tabelle "Matrix" bildet eine "Summe" aus den beiden anderen Tabellen. Bedeutet da muss alles drin landen.
Du legst neues Personal an und evtl. neues Tool.

Dann muss das in der Matrix-Tabelle zugeordnet werden. Neuer Eintrag: Personal auswählen, zugehöriges Tool

Jo. Dann könnte man jetzt einen schönen Filter auf die BindingSource des DGV legen, dann kannste dir z.B. alle Tools eines Personals anzeigen lassen. Oder alle Personal, welches ein bestimmtes Tool hat.
Ich mach da gleich mal was zum Testen fertig.

EDIT: Anhang WindowsApp100.zip ist ohne Filter und ohne Codezeilen von mir, WindowsApp101.zip ist mit Filterung der BindingSource.
Wenn die Relationen jetzt noch passen würden, dann könnte man noch einfacher und eleganter filtern. Aber ich denk als Grundgerüst und Denkansatz reicht das erstmal und du kannst das entsprechend ausarbeiten.
Auch empfiehlt es sich erstmal nur mit einem DataSet zu arbeiten und die Datenbank später dranzuheften wenn alles läuft.

ErfinderDesRades · 21. Januar 2023, 12:04

wie gesagt: Standardmässig gibts da nix, da müssteste ziemlich kunstvoll was basteln.
Alternativ zum "Matrix-View" könntest du einen "m:n-View" bauen - das gibts allerdings von der Stange.
da hättest du links ein Grid, was alle Mitarbeiter anzeigt, und kannst einen auswählen. Rechts ein Grid, was dessen Werkzeuge + Ausbildungsstand anzeigt.
Du siehst also nicht alle Ausbildungsstände auf einmal, sondern "nur" die Ausbildungsstände des angewählten Mitarbeiters.

(Einen m:n-View kann man auach umgekehrt konstruieren: links alle Werkzeuge, und rechts alle Mitarbeiter, die an diesen ausgebildet sind.)
gugge die vier Views auf Video , den m:n-View.
(oder auch die anderen, schadet nix, auch das zu wissen, was noch damit zusammenhängt/möglich ist)

Montoyafan · 23. Januar 2023, 07:44

Hallo,

tragl schrieb:

Allerdings hast du schon einen Fehler in deinem Datenmodell: Es sind keine Relationen vorhanden.

Das war ja nur ein schnell zusammen geschustertes Beispiel. In der Original Tabelle sind die Relationen natürlich vorhanden.
Ich wollte ja aber auch nicht die Werkzeuge untereinander in einer Liste. Das ist ja kein Problem.
Ist ja im Grunde nichts anderes wie

SQL-Abfrage

SELECT * FROM personal
INNER JOIN matrix ON matrix.personal_ID = personal.personal_ID
INNER JOIN tool ON tool.tool_id = matrix.tool_ID

Ich hätte aber gerne die Werkzeuge als Spaltenköpfe und die Mitarbeiter als Zeilen mit dem jeweiligen Status zum Werkzeug. Wie im letzten Bild in meinem ersten Post.

VB.NET-Quellcode

Using conn As New SqlConnection With {.ConnectionString = connStr}
Try
conn.Open()
'Alle Werkzeuge auslesen und in einer Liste speichern
Using cmd As New SqlCommand With {.Connection = conn}
cmd.CommandText = "SELECT tool_id, tool_name FROM tool;"
Using reader As SqlDataReader = cmd.ExecuteReader
If reader.HasRows Then
While reader.Read
Dim tool As New tools With {
.tool_id = Convert.ToInt32(reader("tool_id")),
.tool_name = Convert.ToString(reader("tool_name"))
}
listTools.Add(tool)
End While
End If
End Using
End Using
If listTools.Count > 0 Then
For Each tool In listTools
'Eine Spalte als WKZ-Name erzeugen
'......
DataGridView1.Columns.Add(tool.tool_id.ToString, tool.tool_name)
Next
End If
Catch ex As Exception
Finally
conn.Close()
End Try
End Using

Auf diese Weise hätte ich alle Werkzeuge als Spalten.
Im nächsten Schritt würde ich dann das Personal mit dem entsprechenden Status auslesen.
Nur weis ich jetzt nicht wie ich diese dann der "richtigen" Werkzeugspalte zuordnen kann.
Das ist so ein bisschen mein Problem.

Edit:
Jetzt habe ich es soweit:

Das sieht ja schon einmal sehr gut aus

So habe ich das jetzt umgesetzt:

VB.NET-Quellcode

Using conn As New MySqlConnection With {.ConnectionString = connStr}
Try
conn.Open()
'Alle Werkzeuge auslesen und in einer Liste speichern
Using cmd As New MySqlCommand With {.Connection = conn}
cmd.CommandText = "SELECT tool_id, tool_name FROM tools;"
Using reader As MySqlDataReader = cmd.ExecuteReader
If reader.HasRows Then
While reader.Read
Dim tool As New tools With {
.tool_id = Convert.ToInt32(reader("tool_id_id")),
.tool_name = Convert.ToString(reader("tool_name"))
}
listTools.Add(tool)
End While
End If
End Using
End Using
If listTools.Count > 0 Then
UiDataGridView1.Columns.Add("worker_id", "Mitarbeiter")
For Each tool In listTools
'Eine Spalte als WKZ-Name erzeugen
'......
UiDataGridView1.Columns.Add(tool.tool_id.ToString, tool.tool_name)
Next
Using cmd As New MySqlCommand With {.Connection = conn}
cmd.CommandText = "SELECT personal_id,matrix.tool_id,tools.tool_name,status FROM matrix INNER JOIN tools ON tools.tool_id=matrix.tool_id;"
Using reader As MySqlDataReader = cmd.ExecuteReader
If reader.HasRows Then
Dim rowID As Integer = -1
Dim columnID As Integer = -1
While reader.Read
Dim workerID As Integer = Convert.ToInt32(reader("personal_id"))
Dim tool_id As Integer = Convert.ToInt32(reader("tool_id"))
Dim tool_name As String = reader("tool_name").ToString
Dim status As String = reader("status").ToString
Dim isAvailable As Boolean = False
For Each row As DataGridViewRow In UiDataGridView1.Rows
If Convert.ToInt32(row.Cells("worker_id").Value) = workerID Then
'In dieser Zeile das Werkzeug suchen
Debug.WriteLine("WerkzeugID " & tool_id.ToString & " für Werker " & workerID.ToString & " mit Status " & status & " hinzufügen")
rowID = row.Index + 1
isAvailable = True
Exit For
End If
Next
'Wurde die Zeile gefunden?
'Wenn nicht, müssen wir eine neue einfügen
If isAvailable = False Then
Dim newRow As New DataGridViewRow
newRow.CreateCells(UiDataGridView1)
newRow.Cells(0).Value = workerID
UiDataGridView1.Rows.Add(newRow)
rowID = UiDataGridView1.Rows.Count - 1
End If
If rowID >= 0 Then
UiDataGridView1.Item(tool_id.ToString, rowID - 1).Value = status
Select Case status
Case "1"
UiDataGridView1.Rows(rowID - 1).Cells(tool_id.ToString).Style.BackColor = Color.White
Case "2"
UiDataGridView1.Rows(rowID - 1).Cells(tool_id.ToString).Style.BackColor = Color.Yellow
Case "3"
UiDataGridView1.Rows(rowID - 1).Cells(tool_id.ToString).Style.BackColor = Color.Green
End Select
rowID = -1
End If
End While
End If
End Using
End Using
End If
Catch ex As Exception
Debug.WriteLine(ex.Message)
End Try
End Using

Gibt es dazu Meinungen, Verbesserungsvorschläge?

Gruß

ISliceUrPanties · 23. Januar 2023, 11:27

Hallo,
ich habe mal ein Beispielprojekt angehängt, wie man es machen könnte und dient nur als Idee. Arbeitet allerdings nicht mit DataBinding. Das Erstellen des DataGrids findet in Form1.cs statt. Evtl. kannst du das für dich adaptieren.
Hinweis: Das Projekt ist .NET 7, verwendet Entity Framework und eine SQLite-Datenbank. Du musst die Anwendung prinzipiell nur starten. Meine Demo-Daten entsprechen grob deinen Musterdaten aus Post #1, nur deinen Status habe ich als Boolean implementiert (aus Einfachheit für mich).
Edit: Zu Spät

. Naja...

Montoyafan · 23. Januar 2023, 11:40

Schaue ich mir auf jeden Fall an, danke.
Muss aber erstmal mein VS aktualisieren. Habe noch 17.3 installiert.
.Net7 gibts aber wohl erst ab 17.4

Montoyafan · 2. Februar 2023, 09:35

Hallo,

ich habe die Matrix jetzt in einer Dataview, welche ich an das Datagridview gebunden habe.
Dadurch kann ich im Dataview jetzt auch suchen und bspw. nach Nachnamen filtern

VB.NET-Quellcode

Private Sub _ParentForm_FilterByName(name As String) Handles _ParentForm.FilterByName
ShowWaitForm("Ausbildungsmatrix wird aktualisiert, bitte warten.")
_dvMatrix.RowFilter = String.Concat("worker_Lastname LIKE '", name, "%'")
HideWaitForm()
End Sub

Weis jemand ob es auch möglich ist nach den Spalten, also hier die Werkzeugnummern zu filtern?
Also wenn ich jetzt nach Nachname "Mü" und Werkzeug "50490" suche, er mir alle Müllers und nur den Status am Werkzeug "50490" anzeigt?

Gruß

Kasi · 2. Februar 2023, 11:03

dein Filter mit "AND" erweitern.

ich hätte das ganze mit einer PIVOT-Abfrage gelöst, aber dein Code in Post#6 funktioniert
wie du sagst.

ErfinderDesRades · 2. Februar 2023, 16:06

Montoyafan schrieb:

Weis jemand ob es auch möglich ist nach den Spalten, also hier die Werkzeugnummern zu filtern?

Kasi schrieb:

dein Filter mit "AND" erweitern.

Das wird nicht gehen. Er will ja Spalten wegfiltern.

ErfinderDesRades schrieb:

wie gesagt: Standardmässig gibts da nix, da müssteste ziemlich kunstvoll was basteln.

kannste iwie alle DGV-Spalten durchlaufen, und bei denen, die du nicht sehen willst, Width=0 einstellen oder sowas.

Ansonsten ist sone Ansicht, wo zu einem (oder mehreren) Namen der Status nur eines Werkzeugs steht, genau ein m:n-View, wie es ihn auch von der Stange gibt.

Montoyafan · 3. Februar 2023, 10:59

Ja genau, das geht so natürlich nicht.
Ist ja ein ".RowFilter"

Ja, bleibt wohl nur alle Spalten durchlaufen uns ausblenden.

VB.NET-Quellcode

Private Sub _ParentForm_FilterTool(tool As String) Handles _ParentForm.FilterTool
For Each column As DataGridViewColumn In UiDataGridView1.Columns
If Not column.Name.StartsWith(tool) Then
column.Visible = False
End If
Next
UiDataGridView1.Columns.Item("worker_Firstname").Visible = True
UiDataGridView1.Columns.Item("worker_Lastname").Visible = True
End Sub

Danke

Matrix aus mehreren Tabellen in DGV erstellen

Matrix aus mehreren Tabellen in DGV erstellen

tragl schrieb:

SQL-Abfrage

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Montoyafan schrieb:

Kasi schrieb:

ErfinderDesRades schrieb:

VB.NET-Quellcode

Tags

Ähnliche Themen

5 Benutzer haben hier geschrieben