Matrixdarstellung in WPF DataGrid mit unbekannten Dimensionen und Namen

mpmichael · 7. Mai 2021, 18:42

Hallo,

ich habe ein Problem mit der Darstellung eines Datagrids bei dem ich die Daten vorher nicht in einer Klasse ablegen kann, weil sich die Elemente erst zur Laufzeit ergeben.
Als Beispiel:
Ich habe eine Menge an Usern und ein User kann in verschiedenen Gruppen sein - die User werden erst zur Laufzeit eingelesen
Dann habe ich eine Menge an Gruppen - diese werden auch zur Laufzeit eigelesen und die Anzahl ist unterschiedlich.
Nun möchte ich das Ergebnis - also welche User ist Mitglied in welchen Gruppen in einem DataGrid anzeigen.
Ich bekomme es nur nicht hin die Inhalte auf die Columns zu verteilen...

Vielleicht ist es ja ganz einfach - aber das glaube ich nicht. Ich habe es in einem Beispiel zusammengefasst:

XML-Quellcode

<Window x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:local="clr-namespace:MatrixProb"
mc:Ignorable="d"
Title="MainWindow" Height="450" Width="800">
<Grid>
<DataGrid x:Name="DG_Matrix" HorizontalAlignment="Left" Height="325" Margin="10,55,0,0" VerticalAlignment="Top" Width="575" FontFamily="Consolas" FontSize="9" />
<Button x:Name="BT_Load_Data" Click="Fill_Click" Content="Load" HorizontalAlignment="Left" Margin="10,20,0,0" VerticalAlignment="Top" Width="75" />
<Button x:Name="BT_Auswertung" Click="Auswertung_Click" Content="Auswertung" HorizontalAlignment="Left" Margin="110,20,0,0" VerticalAlignment="Top" Width="75" />
</Grid>
</Window>

Hier der Code:

Visual Basic-Quellcode

Class MainWindow
Public Class Users
Public Property SamAccountName As String
Public Property DisplayName As String
Public Property GroupMember As New List(Of String)
End Class
Public Class Groups
Public Property GroupName As String
Public Property SamAccountName As String
End Class
Dim TheUsers As New List(Of Users)
Dim TheGroups As New List(Of Groups)
Private Sub Fill_Click()
Dim UserObj As New Users
UserObj.DisplayName = "Mike Meyers"
UserObj.SamAccountName = "MM"
UserObj.GroupMember.Add("Intern")
UserObj.GroupMember.Add("Empfang")
UserObj.GroupMember.Add("Allgemeines")
TheUsers.Add(UserObj)
Dim UserObj2 As New Users
UserObj2.DisplayName = "Frank Nobody"
UserObj2.SamAccountName = "FN"
UserObj2.GroupMember.Add("Intern")
UserObj2.GroupMember.Add("Chef")
UserObj2.GroupMember.Add("Allgemeines")
TheUsers.Add(UserObj2)
Dim UserObj3 As New Users
UserObj3.DisplayName = "Polly Pocket"
UserObj3.SamAccountName = "PP"
UserObj3.GroupMember.Add("Intern")
UserObj3.GroupMember.Add("Buchhaltung")
UserObj3.GroupMember.Add("Allgemeines")
TheUsers.Add(UserObj3)
Dim GrpObj1 As New Groups
GrpObj1.GroupName = "Interne Mitarbeiter"
GrpObj1.SamAccountName = "Intern"
TheGroups.Add(GrpObj1)
Dim GrpObj2 As New Groups
GrpObj2.GroupName = "Abteilung Empfang"
GrpObj2.SamAccountName = "Empfang"
TheGroups.Add(GrpObj2)
Dim GrpObj3 As New Groups
GrpObj3.GroupName = "Chefs"
GrpObj3.SamAccountName = "Chef"
TheGroups.Add(GrpObj3)
Dim GrpObj4 As New Groups
GrpObj4.GroupName = "Abteilung Buchhaltung"
GrpObj4.SamAccountName = "Buchhaltung"
TheGroups.Add(GrpObj4)
Dim GrpObj5 As New Groups
GrpObj5.GroupName = "Für Alle"
GrpObj5.SamAccountName = "Allgemeines"
TheGroups.Add(GrpObj5)
BT_Load_Data.Background = Brushes.Green
End Sub
Private Sub Auswertung_Click()
DG_Matrix.Columns.Add(New DataGridTextColumn With {.Header = "User", .Binding = New Binding(".")})
For i = 0 To TheGroups.Count - 1
Dim NCol As New DataGridTextColumn With {
.Header = TheGroups(i).GroupName,
.Binding = New Binding(".")
}
DG_Matrix.Columns.Add(NCol)
Next
For i = 0 To TheUsers.Count - 1
Dim NRow As New DataGridRow
Dim Grp As String = ""
For Each GroupItem In TheGroups
If Not TheUsers(i).GroupMember.FindIndex(Function(x) x.Equals(GroupItem.SamAccountName)) = -1 Then
'Match
Grp += ",X"
Else
'NoMatch
Grp += ",O"
End If
Next
NRow.Item = TheUsers(i).DisplayName & Grp
DG_Matrix.Items.Add(NRow)
Next
End Sub
End Class

Ich vermute mein Fehler liegt im Bereich Zeile 85...

Würde mich freuen, wenn jemand helfen könnte.

mpmichael · 8. Mai 2021, 09:50

Hallo,

ich konnte es jetzt lösen - aber irgendwie finde ich es nicht besonders elegant. Vielleicht hat ja jemand einen Tipp wie man es besser machen könnte. Für alle die, die ein Ähnliches Problem haben und zumindest einen Ansatz brauchen - hier meine Momentane Lösung:

XML-Quellcode

<Window x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:local="clr-namespace:MatrixProb"
mc:Ignorable="d"
Title="MainWindow" Height="450" Width="800">
<Grid>
<DataGrid x:Name="DG_Matrix" HorizontalAlignment="Left" Height="325" Margin="10,55,0,0" VerticalAlignment="Top" Width="575" FontFamily="Consolas" FontSize="9" />
<Button x:Name="BT_Load_Data" Click="Fill_Click" Content="Load" HorizontalAlignment="Left" Margin="10,20,0,0" VerticalAlignment="Top" Width="75" />
<Button x:Name="BT_Auswertung" Click="Auswertung_Click" Content="Auswertung" HorizontalAlignment="Left" Margin="110,20,0,0" VerticalAlignment="Top" Width="75" />
</Grid>
</Window>

Und der Code

VB.NET-Quellcode

Class MainWindow
Public Class Mrtx
Public Property UserName As String
Public Property InGroup As Boolean()
End Class
Public Class Users
Public Property SamAccountName As String
Public Property DisplayName As String
Public Property GroupMember As New List(Of String)
End Class
Public Class Groups
Public Property GroupName As String
Public Property SamAccountName As String
End Class
Dim TheUsers As New List(Of Users)
Dim TheGroups As New List(Of Groups)
Private Sub Fill_Click() 'Nur zu Demo - diese Daten werden normalerweise geladen
Dim UserObj As New Users
UserObj.DisplayName = "Mike Meyers"
UserObj.SamAccountName = "MM"
UserObj.GroupMember.Add("Intern")
UserObj.GroupMember.Add("Empfang")
UserObj.GroupMember.Add("Allgemeines")
TheUsers.Add(UserObj)
Dim UserObj2 As New Users
UserObj2.DisplayName = "Frank Nobody"
UserObj2.SamAccountName = "FN"
UserObj2.GroupMember.Add("Intern")
UserObj2.GroupMember.Add("Chef")
UserObj2.GroupMember.Add("Allgemeines")
TheUsers.Add(UserObj2)
Dim UserObj3 As New Users
UserObj3.DisplayName = "Polly Pocket"
UserObj3.SamAccountName = "PP"
UserObj3.GroupMember.Add("Intern")
UserObj3.GroupMember.Add("Buchhaltung")
UserObj3.GroupMember.Add("Allgemeines")
TheUsers.Add(UserObj3)
Dim GrpObj1 As New Groups
GrpObj1.GroupName = "Interne Mitarbeiter"
GrpObj1.SamAccountName = "Intern"
TheGroups.Add(GrpObj1)
Dim GrpObj2 As New Groups
GrpObj2.GroupName = "Abteilung Empfang"
GrpObj2.SamAccountName = "Empfang"
TheGroups.Add(GrpObj2)
Dim GrpObj3 As New Groups
GrpObj3.GroupName = "Chefs"
GrpObj3.SamAccountName = "Chef"
TheGroups.Add(GrpObj3)
Dim GrpObj4 As New Groups
GrpObj4.GroupName = "Abteilung Buchhaltung"
GrpObj4.SamAccountName = "Buchhaltung"
TheGroups.Add(GrpObj4)
Dim GrpObj5 As New Groups
GrpObj5.GroupName = "Für Alle"
GrpObj5.SamAccountName = "Allgemeines"
TheGroups.Add(GrpObj5)
BT_Load_Data.Background = Brushes.Green
End Sub
Private Sub Auswertung_Click()
Dim MyMatrix As New List(Of Mrtx)
DG_Matrix.Columns.Add(New DataGridTextColumn With {.Header = "User", .Binding = New Binding("UserName")})
For i = 0 To TheGroups.Count - 1
Dim NCol As New DataGridCheckBoxColumn With {
.Header = TheGroups(i).GroupName,
.Binding = New Binding("InGroup[" & i & "]")
}
DG_Matrix.Columns.Add(NCol)
Next
For i = 0 To TheUsers.Count - 1
Dim NRow As New Mrtx With {
.UserName = TheUsers(i).DisplayName
}
Dim GrpBools() As Boolean = New Boolean(TheGroups.Count) {}
For j = 0 To TheGroups.Count - 1
Dim Idx As Integer = j
If Not TheUsers(i).GroupMember.FindIndex(Function(x) x.Equals(TheGroups(Idx).SamAccountName)) = -1 Then
'Match
GrpBools(j) = True
Else
'NoMatch
GrpBools(j) = False
End If
Next
NRow.InGroup = GrpBools
MyMatrix.Add(NRow)
Next
DG_Matrix.AutoGenerateColumns = False
DG_Matrix.CanUserAddRows = False
DG_Matrix.ItemsSource = MyMatrix
End Sub
End Class

Beste Grüße
Martin

mpmichael · 8. Mai 2021, 11:38

Hallo in die Runde,

jetzt habe ich noch eine Frage - aber vielleicht kann mir hier einer Profis (@'asusdk' oder @Nofear23m) einen guten Tipp geben?
Nach dem ich mein Beispiel nun funktionsfähig bekommen habe - würde ich gerne die Zellen einfärben - z. B. grün, die "true" sind.

Wie kann ich das - quasi dynamisch bei der Spaltenerstellung mitgeben?

Vielen Dank
Martin

Akanel · 9. Mai 2021, 07:47

Probier mal so.
Die 4 XXXX musst du durch deine Property ersetzen.

XML-Quellcode

<DataGrid x:Name="DG_Matrix" HorizontalAlignment="Left" Height="325" Margin="10,55,0,0" VerticalAlignment="Top" Width="575" FontFamily="Consolas" FontSize="9">
<DataGrid.RowStyle>
<Style TargetType="{x:Type DataGridRow}">
<Style.Triggers>
<DataTrigger Binding="{Binding XXXX}" Value="true">
<Setter Property="Background" Value="Green"/>
</DataTrigger>
</Style.Triggers>
</Style>
</DataGrid.RowStyle>
</DataGrid>

mpmichael · 10. Mai 2021, 08:16

Hallo,

@Akanel - super vielen Dank. Diese Option war mir so noch nicht bekannt. Vielleicht dazu noch folgende Fragen:

1. Lassen sich diese Style Trigger auch in den Code bei der Dynamischen Erstellung der Spalten erzeugen
2. oder - was noch besser wäre - kann ich dass auf Cell Ebene für das ganze Blatt setzen - denn eigentlich soll ja nur die Zeller eingefärbt werden und nicht eine ganze Zeile

Beste Grüße
Martin

mpmichael · 10. Mai 2021, 17:32

Hallo

ich habe es jetzt mal hiermit versucht - hat aber leider keinen Effekt...Warum - verstehe ich absolut nicht.

XML-Quellcode

<DataGrid.CellStyle>
<Style TargetType="{x:Type DataGridCell}">
<Style.Triggers>
<Trigger Property="Content" Value="True">
<Setter Property="Background" Value="SeaGreen" />
</Trigger>
</Style.Triggers>
</Style>
</DataGrid.CellStyle>

Akanel · 11. Mai 2021, 06:40

Ich schaue es mir heute Abend an. Bin grad mitten im Umbau daher wenig am PC.
was für eine Property ist denn Content?

mpmichael · 11. Mai 2021, 12:03

Hallo,

vielen Dank. Hoffe mit dem Umbau klappt alles!

Mir geht es noch immer um die "Matrix" die ich aufbaue. Ich möchte eigentlich nur die Felder (aber nicht die ganze Zeile) in der die CheckBox "true" ist grün hinterlegen.

VB.NET-Quellcode

Dim NCol As New DataGridCheckBoxColumn With {
.Header = TheGroups(i).GroupName,
.Binding = New Binding("InGroup[" & i & "]")
}

Da ich im Vorhinein ja nicht weiß wie viele Spalten erzeugt werden tu ich mich auch mit der Addressierung schwer.
Ich vermute - aber auch das ist mir bisher nicht gelungen - würde ich bei der Spaltendefinition bereits den Style Trigger mitgeben - wäre die Sache vermutlich auch schon gelöst.
Ich finde bei Microsoft alles mögliche aber nicht die Keywords die ich brauche.

wolfi_bayern · 11. Mai 2021, 19:20

Hallo!

Ich weiß nicht ob ich wirklich zu Deinem Problem was beitragen kann... Ich hatte vor kurzem ein Ähnliches Problem. Da ging es auch darum, dass die Anzahl der Zeilen bekannt war, die anzahl der Spalten erst zur Laufzeit berechnet wurden. Erschwerend hatte ich noch den Fall, dass die Spalten aus verschiedenen Klassen bestanden.

Ich bin so vorgegangen, dass ich je Typ eine Klasse erstellt habe. Diese Klasse hat eine Eigenschaft bekommen die auf das dargestellt Element aus der Datenbank zeigt.

Dann hab ich noch eine Funktion hinzugefügt, welche als Parameter das Grid, in welchem das Element angezeigt werden soll übergeben bekommt. Per For-Schleife habe ich für jede Zeile und jede Spalte die Elemente durchlaufen und jedes Element an der entsprechenden Zeile/Spalte im Grid hinzugefügt. Dazu war nötig bei jeder neuen spalte erstmal eine neue GridColumn hinzuzufügen, die Überschrift zu setzen und dann für jede Zeile das Element hinzuzufügen. In der Funktion werden per Code die erforderlichen UIElemente erzeugt und deren Eigenschaften gesetzt.

Erstmal ist meine Lösung ein ziemliches Gebastel, aber es funktioniert.... Habe ich z. B. einen Boolschen Wert wird ein Checkbox-Element dargestellt. Das Click-Event wird beim Erstellen auch mit verknüpft und beim draufklicken wird der Ereignishandler aufgerufen. Da die ID des Elements in den Eigenschaften hinterlegt ist, wird der Wert in die Datenbank geschrieben.

Vielleicht hilft Dir das

mpmichael · 12. Mai 2021, 07:03

Hallo und guten Morgen,

ja danke - ist auch ein Überlegung! Wobei ich fast denke, dass es auch viel einfacher gehen müsste. Ich sehe da zwei Ansätze - aber um ehrlich zu sein glaube ich, dass es mir da dan am praktischen know-how fehlt und ich einfach die richtige Kobi aus den Schlüsselworten nicht kenne. Wenn ich nicht falsch liege, dann müsste es zwei mögliche - einfache Wege geben.

1. Über den <datagrid.CellStyle> der wirkt sich ja auf die ganze Tabelle aus - da müsste ich nur noch wissen, wie ich dem Trigger beibringen kann, dass wen. die ClickBox=isChecked dann mache das Feld Grün
2. Direkt beim Anlegen der Spalte dass man hier die Eigenschaft für die Spalte mitgibt - aber auch da denke ich, fehlt mir noch der richtige Syntax oder Schlüsselwort

Akanel war mit seinem Beispiel schon echt super - nur das in seinem Beispiel die Bindung statisch ist. Das wäre natürlich bei Anlegen der Spalte auch (so glaube ich zumindest) möglich einen direkten Bezug zu schaffen - aber auch hier war ich "lost in syntax".
LG
Martin

Beste Grüße
Martin

wolfi_bayern · 12. Mai 2021, 10:17

Hallo!
Ja... Auf die beiden Möglichkeiten bin ich auch in ähnlicher Art und Weise gestoßen... Wobei es für den CellStyle noch die Möglichkeit gäbe einen template selector zu verwenden um je nach Datentyp eine andere Darstellung zu erreichen...

Gescheitert bin ich aber momentan auch am Zeitmangel sowie Code Hürden.

Akanel · 13. Mai 2021, 08:06

Hallo,

ich habe mir deinen Code mal angesehen.
An welche Property soll denn eigentlich gebunden werden und welche Spalten sollen sich dann einfärben?

Das DataGrid hat die Eigenschaft AutoGenerateColums welche dir bei geeigneter Klasse alles generiert.
Bei dir sind es momentan nur 2 Porpertys an die man Binden kann, aber der Rest vom Code Hebelt das Binding wieder aus weil du alles Fix vorgibst.

Mir scheint du müsstest dir eine geeignete Klasse bauen die alle Daten vorhält und an diese kannst du dann Binden.

Ich versuche dir mal ein kleines Beispiel zu Basteln.

mpmichael · 16. Mai 2021, 07:28

Hallo,

ich würde es ja tatsächlich gerne an eine Eigenschaft wie z. B. "isChecked" binden wollen. Ich habe im Netz etwas gefunden - aber leider geht es da um TextBoxen - aber da bezieht sich der Schreiber auf die Inhalte.
Mein Gedanke war das zu Adaptieren und oder im Code unterzubringen. Hier das Beispiel aus dem Netz:

XML-Quellcode

<DataGridTextColumn Binding="{Binding Name}">
<DataGridTextColumn.ElementStyle>
<Style TargetType="{x:Type TextBlock}">
<Style.Triggers>
<Trigger Property="Text" Value="John">
<Setter Property="Background" Value="LightGreen"/>
</Trigger>
</Style.Triggers>
</Style>
</DataGridTextColumn.ElementStyle>
</DataGridTextColumn>

Matrixdarstellung in WPF DataGrid mit unbekannten Dimensionen und Namen

Matrixdarstellung in WPF DataGrid mit unbekannten Dimensionen und Namen

XML-Quellcode

Visual Basic-Quellcode

XML-Quellcode

VB.NET-Quellcode

XML-Quellcode

XML-Quellcode

VB.NET-Quellcode

XML-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

3 Benutzer haben hier geschrieben