Hallo Leute!
Ich versuche über einen DataGridTableStyle gewisse Zeilen in einem Datagrid auszublenden. In der Theorie sollte es ja so funktionieren, dass man erstmal DataGridTableStyle erstellt und diesem die Columns zuweißt, die man später in seinem Datagrid sehen will (MappingName muss natürlich gestzt werden). Bei mir ist es so, dass komischerweiße von mehreren Spalten, die ich übernehmen will nur die Spalte "ID" angezeigt wird. Zu bemerken ist vielleicht nocht, dass ich auf dem .NET Compact Framework entwickle.
Hier mal der Code für die Initialisierung meiner "Originalen-DataTable":
Soweit, so gut...
Hier also mal der Part mit dem DataGridTableStyle
Ich sitze hier schon ewig rum und komme einfach nicht auf das Problem *confused*. Vielleicht hat ja jemand von euch eine zündende Idee.
Gruß Sebbi
Ich versuche über einen DataGridTableStyle gewisse Zeilen in einem Datagrid auszublenden. In der Theorie sollte es ja so funktionieren, dass man erstmal DataGridTableStyle erstellt und diesem die Columns zuweißt, die man später in seinem Datagrid sehen will (MappingName muss natürlich gestzt werden). Bei mir ist es so, dass komischerweiße von mehreren Spalten, die ich übernehmen will nur die Spalte "ID" angezeigt wird. Zu bemerken ist vielleicht nocht, dass ich auf dem .NET Compact Framework entwickle.
Hier mal der Code für die Initialisierung meiner "Originalen-DataTable":
Code:
Dim DS_Tbl_Grabmangel As New DataSet DS_Tbl_Grabmangel.Tables.Add(New DataTable) DS_Tbl_Grabmangel.Tables(0).Columns.Add("ID") DS_Tbl_Grabmangel.Tables(0).Columns.Add("tbl_Grab_ID") DS_Tbl_Grabmangel.Tables(0).Columns.Add("tblxx_Mangel_ID") DS_Tbl_Grabmangel.Tables(0).Columns.Add("tblkett_Grabmangel_MangelBezeichnung") DS_Tbl_Grabmangel.Tables(0).Columns.Add("tblxx_MangelartBezeichnung") DS_Tbl_Grabmangel.Tables(0).Columns.Add("LetztePruefung") DS_Tbl_Grabmangel.Tables(0).Columns.Add("Behoben")
Hier also mal der Part mit dem DataGridTableStyle
Code:
Private Sub createDgStyle() DS_tbl_Grabmaengel.Tables(0).TableName = "tbl_Grabmangel" '#### TALBE STYLE FESTLEGEN ### Dim MyDataGridTableStyle As New DataGridTableStyle MyDataGridTableStyle.MappingName = "tbl_Grabmangel" MyDataGridTableStyle.GridColumnStyles.Clear() 'Column ID Dim idCol As New DataGridTextBoxColumn idCol.MappingName = "ID" idCol.HeaderText = "ID" idCol.Width = 150 MyDataGridTableStyle.GridColumnStyles.Add(idCol) 'Column tblkett_Grabmangel_MangelBezeichnung Dim tblkett_Grabmangel_MangelBezeichnungCol As New DataGridTextBoxColumn tbl_Grab_IDCol.MappingName = "tblkett_Grabmangel_MangelBezeichnung" tbl_Grab_IDCol.HeaderText = "tblkett_Grabmangel_MangelBezeichnung" tbl_Grab_IDCol.Width = 150 MyDataGridTableStyle.GridColumnStyles.Add(tblkett_Grabmangel_MangelBezeichnungCol) 'Column tblxx_MangelartBezeichnung Dim tblxx_MangelartBezeichnungCol As New DataGridTextBoxColumn tbl_Grab_IDCol.MappingName = "tblxx_MangelartBezeichnung" tbl_Grab_IDCol.HeaderText = "tblxx_MangelartBezeichnung" tbl_Grab_IDCol.Width = 150 MyDataGridTableStyle.GridColumnStyles.Add(tblxx_MangelartBezeichnungCol) 'Column Behoben Dim BehobenCol As New DataGridTextBoxColumn tbl_Grab_IDCol.MappingName = "Behoben" tbl_Grab_IDCol.HeaderText = "Behoben" tbl_Grab_IDCol.Width = 150 MyDataGridTableStyle.GridColumnStyles.Add(BehobenCol) Try 'TableStyle zu DataGrid hinzuefuegen dgMaengel.TableStyles.Clear() dgMaengel.TableStyles.Add(MyDataGridTableStyle) Catch ex As Exception MsgBox(ex.Message & vbCrLf & ex.StackTrace(), MsgBoxStyle.Critical) End Try '### TABLESTYLE FESTGELEGD ### End Sub
Gruß Sebbi
Comment