Die Auswahlliste in einer DataGridViewComboBox ändern (die Zweite)

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von VB1963.

    Die Auswahlliste in einer DataGridViewComboBox ändern (die Zweite)

    Hallo Community!

    Ich habe meinen geschlossenen Beitrag Nach erfolgter Auswahl die Auswahlliste in einer DataGridViewComboBox ändern wieder 'aufgemacht'. :)
    Mich hat dieses damalige Vorhaben wieder aus Interesse und Neugier gepackt und habe versucht weiterzumachen.
    Der Beitrag Items Collection Property erstellen von Demmy hat mich zu neuen Ideen verleitet.

    Mein damaliges Problem:
    Eine ComboBox in einer DataGridView anzuwenden, die ihre Listeneinträge um den jeweils ausgewählten Eintrag reduziert,
    damit nur ein Wert der Auswahlliste in einer Spalte vorkommen kann.
    Ich hatte es damals mit einer ComboBoxColumn versucht und damit nur DGV-Ausnahmen,
    wie "Der DataGridViewComboBoxCell-Wert ist ungültig" produziert. :whistling:
    Des Weiteren konnte ich nur eine Spalte im DGV bedienen und hatte auch keine richtige Datenanbindung...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.ComponentModel
    3. Imports System.Drawing.Design
    5. <Localizable(True)> _
    6. Public Class DepressComboBoxListColumn : Inherits DataGridViewColumn
    8. Private _DataSource As Object
    9. Private _ValueMember As String
    10. Private _DisplayMember As String
    11. Private _Items As New List(Of String)
    13. Public Sub New()
    14. MyBase.New(New DepressComboBoxListCell())
    15. End Sub
    17. ''' <summary>
    18. ''' Mit der Clone-Methode wird erreicht,
    19. ''' dass schlussendlich der Form-Desiner
    20. ''' die Daten vom Eigenschaftsfenster übernimmt!!!
    21. ''' </summary>
    22. ''' <returns></returns>
    23. ''' <remarks></remarks>
    24. Public Overrides Function Clone() As Object
    25. Dim col As DepressComboBoxListColumn = DirectCast(MyBase.Clone(), DepressComboBoxListColumn)
    26. col.CellTemplate = DirectCast(Me.CellTemplate.Clone(), DepressComboBoxListCell)
    27. col.Items = Me.Items
    28. col.DataSource = Me.DataSource
    29. col.DisplayMember = Me.DisplayMember
    30. col.ValueMember = Me.ValueMember
    31. col.DropDownStyle = Me.DropDownStyle
    32. col.FlatStyle = Me.FlatStyle
    33. Return col
    34. End Function
    36. <Browsable(False)> _
    37. <DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)> _
    38. Public Overrides Property CellTemplate() As DataGridViewCell
    39. Get
    40. Return MyBase.CellTemplate
    41. End Get
    42. Set(value As DataGridViewCell)
    43. If (value IsNot Nothing) AndAlso Not (TypeOf value Is DepressComboBoxListCell) Then
    44. Throw New ArgumentException("DataGridView: falscher Typ von CellTemplate, es muss eine DepressComboBoxListCell sein")
    45. End If
    46. MyBase.CellTemplate = value
    47. End Set
    48. End Property
    50. #Region "ComboBoxStyle"
    52. Private _DropDownStyle As ComboBoxStyle
    53. <Category("Darstellung")> _
    54. <Description("Steuert die Darstellung und Funktionalität der Combobox.")> _
    55. <ReadOnlyAttribute(False)> _
    56. <DefaultValue(ComboBoxStyle.DropDown)> _
    57. <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    58. <RefreshProperties(RefreshProperties.Repaint)> _
    59. Public Property DropDownStyle() As ComboBoxStyle
    60. Get
    61. If _DropDownStyle = ComboBoxStyle.Simple Then _DropDownStyle = ComboBoxStyle.DropDown
    62. Return _DropDownStyle
    63. End Get
    64. Set(value As ComboBoxStyle)
    65. _DropDownStyle = value
    66. End Set
    67. End Property
    69. Private _FlatStyle As FlatStyle
    70. <Category("Darstellung")> _
    71. <Description("Bestimmt die Anzeige der Combobox.")> _
    72. <ReadOnlyAttribute(False)> _
    73. <DefaultValue(FlatStyle.Standard)> _
    74. <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    75. <RefreshProperties(RefreshProperties.Repaint)> _
    76. Public Property FlatStyle() As FlatStyle
    77. Get
    78. Return _FlatStyle
    79. End Get
    80. Set(value As FlatStyle)
    81. _FlatStyle = value
    82. End Set
    83. End Property
    84. #End Region
    86. #Region "Datenherkunft"
    88. <Category("Data")> _
    89. <Description("Die Datenquelle, die die Auswahl für die Kombinationsfelder auffüllt.")> _
    90. <DefaultValue(DirectCast(Nothing, String))> _
    91. <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    92. <RefreshProperties(RefreshProperties.All)> _
    93. <Localizable(False)> _
    94. <MergableProperty(False)> _
    95. <TypeConverter("System.Windows.Forms.Design.DataSourceConverter, " & _
    96. "System.Design, " & _
    97. "Version=4.0.0.0, " & _
    98. "Culture=neutral, " & _
    99. "PublicKeyToken=b03f5f7f11d50a3a")> _
    100. <AttributeProvider(GetType(IListSource))> _
    101. Public Property DataSource() As Object
    102. Get
    103. Return _DataSource
    104. End Get
    105. Set(value As Object)
    106. If value IsNot Nothing AndAlso Not (TypeOf value Is IList OrElse TypeOf value Is IListSource) Then
    107. Throw New Exception("Die angegebene DataSource ist für eine komplexe Datenbindung ungeeignet")
    108. Else
    109. If _DataSource IsNot value Then
    110. _DataSource = value
    111. Me.Items.Clear()
    112. If IsNothing(value) Then
    113. Me.ValueMember = String.Empty
    114. Me.DisplayMember = String.Empty
    115. End If
    116. End If
    117. End If
    118. End Set
    119. End Property
    121. <Category("Data")> _
    122. <Description("Eine Zeichenfolge, die die Eigenschaft oder Spalte angibt, " & _
    123. "von der Zeichenfolgen für die Anzeige in den Kombinationsfeldern abgerufen werden.")> _
    124. <DefaultValue(DirectCast(Nothing, String))> _
    125. <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    126. <RefreshProperties(RefreshProperties.All)> _
    127. <Localizable(False)> _
    128. <MergableProperty(False)> _
    129. <TypeConverter("System.Windows.Forms.Design.DataMemberFieldConverter, " & _
    130. "System.Design, " & _
    131. "Version=4.0.0.0, " & _
    132. "Culture=neutral, " & _
    133. "PublicKeyToken=b03f5f7f11d50a3a")> _
    134. <Editor("System.Windows.Forms.Design.DataMemberFieldEditor, " & _
    135. "System.Design, " & _
    136. "Version=4.0.0.0, " & _
    137. "Culture=neutral, " & _
    138. "PublicKeyToken=b03f5f7f11d50a3a", _
    139. GetType(System.Drawing.Design.UITypeEditor))> _
    140. Public Property DisplayMember() As String
    141. Get
    142. Return _DisplayMember
    143. End Get
    144. Set(value As String)
    145. If _DisplayMember <> value Then _DisplayMember = value
    146. End Set
    147. End Property
    149. <Category("Data")> _
    150. <Description("Eine Zeichenfolge, die die Eigenschaft oder Spalte angibt, " & _
    151. "aus der Werte abgerufen werden, die der Auswahl in der Dropdownliste entsprechen.")> _
    152. <DefaultValue(DirectCast(Nothing, String))> _
    153. <DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
    154. <RefreshProperties(RefreshProperties.All)> _
    155. <Localizable(False)> _
    156. <MergableProperty(False)> _
    157. <TypeConverter("System.Windows.Forms.Design.DataMemberFieldConverter, " & _
    158. "System.Design, " & _
    159. "Version=4.0.0.0, " & _
    160. "Culture=neutral, " & _
    161. "PublicKeyToken=b03f5f7f11d50a3a")> _
    162. <Editor("System.Windows.Forms.Design.DataMemberFieldEditor, " & _
    163. "System.Design, " & _
    164. "Version=4.0.0.0, " & _
    165. "Culture=neutral, " & _
    166. "PublicKeyToken=b03f5f7f11d50a3a", _
    167. GetType(System.Drawing.Design.UITypeEditor))> _
    168. Public Property ValueMember() As String
    169. Get
    170. Return _ValueMember
    171. End Get
    172. Set(value As String)
    173. If _ValueMember <> value Then _ValueMember = value
    174. End Set
    175. End Property
    177. <Category("Data")> _
    178. <Description("Eine Auflistung der Objekte, die in den Kombinationsfeldern " & _
    179. "als Auswahl verwendet werden.")> _
    180. <DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
    181. <Localizable(False)> _
    182. <MergableProperty(False)> _
    183. <Editor("System.Windows.Forms.Design.ListControlStringCollectionEditor, " & _
    184. "System.Design, " & _
    185. "Version=4.0.0.0, " & _
    186. "Culture=neutral, " & _
    187. "PublicKeyToken=b03f5f7f11d50a3a",
    188. GetType(System.Drawing.Design.UITypeEditor))> _
    189. Public Property Items As List(Of String)
    190. Get
    191. Return _Items
    192. End Get
    193. Set(value As List(Of String))
    194. If IsNothing(Me.DataSource) Then _Items = value
    195. End Set
    196. End Property
    198. #End Region
    200. End Class 'DepressComboBoxListColumn
    202. Public Class DepressComboBoxListCell : Inherits DataGridViewTextBoxCell
    204. Public Sub New()
    205. Me.Style.Format = String.Empty
    206. End Sub
    208. Public Overrides Sub InitializeEditingControl(ByVal rowIndex As Integer, _
    209. ByVal initialFormattedValue As Object, _
    210. ByVal dataGridViewCellStyle As DataGridViewCellStyle)
    211. ' den Wert des Bearbeitungsteuerelementes auf den aktuellen Zellwert setzen.
    212. MyBase.InitializeEditingControl(rowIndex, initialFormattedValue, dataGridViewCellStyle)
    213. '
    214. Dim ctl As DepressComboBoxListEditingControl =
    215. CType(Me.DataGridView.EditingControl, DepressComboBoxListEditingControl)
    216. If Not String.IsNullOrEmpty(initialFormattedValue.ToString) Then ctl.Text = initialFormattedValue.ToString
    217. ctl.DropDownStyle = CType(Me.OwningColumn, DepressComboBoxListColumn).DropDownStyle
    218. ctl.FlatStyle = CType(Me.OwningColumn, DepressComboBoxListColumn).FlatStyle
    219. '
    220. 'Liste dynamisch befüllen!
    221. If Not fillComboBoxList(ctl) Then Throw New ArgumentException("Datenauswertungsfehler in der ComboBoxListe")
    222. End Sub
    224. Public Overrides ReadOnly Property EditType() As Type
    225. ' Typ des Bearbeitungssteuerelementes vom DepressComboBoxListCell
    226. Get
    227. Return GetType(DepressComboBoxListEditingControl)
    228. End Get
    229. End Property
    231. Public Overrides ReadOnly Property ValueType() As Type
    232. Get
    233. Return GetType(String) ' Wertetyp vom DepressComboBoxListCell
    234. End Get
    235. End Property
    237. Public Overrides ReadOnly Property DefaultNewRowValue() As Object
    238. Get
    239. Return String.Empty
    240. End Get
    241. End Property
    243. Private Function fillComboBoxList(cbx As DepressComboBoxListEditingControl) As Boolean
    244. Dim col = TryCast(Me.OwningColumn, DepressComboBoxListColumn)
    245. If IsNothing(col) Then Return False ' Fehler im TryCast-DepressComboBoxListColum
    246. Dim colIndex = col.Index 'Bezugsspalte Index feststellen
    247. Dim colName = col.DataPropertyName 'Bezugsspalte DataPropertyName feststellen
    248. If String.IsNullOrEmpty(colName) Then Return False 'Fehler
    249. '
    250. Dim externList As New List(Of String)
    251. If IsNothing(col.DataSource) Then
    252. externList = col.Items
    253. Else
    254. If String.IsNullOrEmpty(col.ValueMember) Then Return False
    255. Dim bsData = DirectCast(col.DataSource, BindingSource)
    256. If IsNothing(bsData) Then Return False
    257. Dim dvData As DataView = TryCast(bsData.List, DataView)
    258. If IsNothing(dvData) Then Return False
    259. If col.ValueType IsNot dvData.Table.Columns(col.ValueMember).DataType Then Return False 'ungleiche Datentypen
    260. dvData.Table.AcceptChanges() 'alle zwischenzeitlich gemachten Änderungen an der Tabelle durchführen.
    261. For r = 0 To dvData.Table.Rows.Count - 1
    262. externList.Add(dvData.Table.Rows(r)(col.ValueMember).ToString)
    263. Next
    264. End If
    265. '
    266. externList.Sort()
    267. cbx.Items.Clear() 'ComboBoxListe leeren
    268. Dim bs = TryCast(Me.DataGridView.DataSource, BindingSource)
    269. If IsNothing(bs) Then Return False ' Fehler bei BindingSource-Cast
    270. Dim dv = TryCast(bs.List, DataView)
    271. If IsNothing(dv) Then Return False ' Fehler bei DataView-Cast
    272. For Each i In externList 'externe Liste abgleichen
    273. If Not String.IsNullOrEmpty(i) Then
    274. If Not findValue(dv, colName, i) Then cbx.Items.Add(i)
    275. End If
    276. Next
    277. clearDuplicate(cbx)
    278. Return True
    279. End Function
    281. Private Function findValue(dv As DataView, colName As String, v As String) As Boolean
    282. For row = 0 To dv.Table.Rows.Count - 1
    283. If v = dv.Table.Rows(row)(colName).ToString Then Return True
    284. Next
    285. Return False
    286. End Function
    288. Private Sub clearDuplicate(ByVal cbx As DepressComboBoxListEditingControl)
    289. If cbx.Items.Count <= 1 Then Return
    290. For i = cbx.Items.Count - 1 To 0 Step -1
    291. Dim e = cbx.Items(i).ToString
    292. For j = 0 To i - 1
    293. If e = cbx.Items(j).ToString Then cbx.Items.Remove(e)
    294. Next
    295. Next
    296. End Sub
    298. End Class ' DepressComboBoxListCell
    300. Class DepressComboBoxListEditingControl : Inherits ComboBox
    301. 'Definiert gemeinsame Funktionen für Steuerelemente, die sich innerhalb von Zellen einer DataGridView befinden.
    302. Implements IDataGridViewEditingControl
    303. '
    304. 'Dieser Teil ist wegen Überlänge des Beitrages im Dateianhang anzusehen
    305. '
    306. End Class 'DepressComboBoxListEditingControl

    Wer Interesse hat, kann oben im Expander Auszüge von den 3 Klassen durchstöbern und unten
    das vollständiges Demo herunterladen, das den derzeitigen Status (lauffähig) zeigt.
    Hier kann man in der Entwurfszeit bei den benutzerdefinierten Einstellungen
    (Datasource, Datamember, Valuemember bzw. Items-Auflistung und ComboBox-Styles)
    im Aufgaben-Propertyfenster (bei Spalten bearbeiten) herumspielen ...

    Die eingebauten Extensions stammen vom ErfinderDesRades :thumbup:

    Ich wäre sehr dankbar für Tipp's und Trick's zum Code etc. :)

    mfg
    VB1963
    Dateien

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VB1963“ ()

    VB.NET-Quellcode

    1. dvData.Table.AcceptChanges() 'alle zwischenzeitlich gemachten Änderungen an der Tabelle durchführen.
    Du meinst wohl BindingSource.EndEdit.
    Table.AcceptChanges() greift ins Change-Tracking des Datasets ein, und verändert das Speicher-Verhalten.

    Aber gfällt mir gut das Teil. Bes., dass man da einfach im Designer paar Werte festverdrahtet reinschreiben kann, also so Enum-mäßig. Obwohl das sicher nicht die reine datenbänkerische Lehre is.

    Danke für deinen Tip :)
    Ich habe es mit bsData.EndEdit schon probiert gehabt,
    aber da erzeugt er in Zeile 262 eine Ausnahme bei gelöschten Datensätzen. :?:
    siehe angehängtes Bild
    Bilder

    • Ausnahme-1.jpg

      127,74 kB, 850×852, 126 mal angesehen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VB1963“ ()

    Ja, jetzt habe ich es bemerkt - die gelöschten Datenzeilen sind beim Laden wieder da - darauf habe ich noch gar nicht geachtet...

    Ich frage jetzt .RowState auf gelöschte Zeilen ab, soweit tut es jetzt wieder, wie es soll ...

    Spoiler anzeigen

    VB.NET-Quellcode

    1. bsData.EndEdit()
    2. For r = 0 To dvData.Table.Rows.Count - 1
    3. If dvData.Table.Rows(r).RowState = DataRowState.Deleted Then Continue For
    4. externList.Add(dvData.Table.Rows(r)(col.ValueMember).ToString)
    5. Next

    Danke nochmals

Facebook
Telefonspende