DGV - Checkboxen State nicht änderbar

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    DGV - Checkboxen State nicht änderbar

    Guten Morgen,

    trotz Readonly False kann ich den State der Checkboxen im DGV nicht ändern (Columns 12 bis 23).
    Textboxen sind änderbar.

    VB.NET-Quellcode

    1. With DGV_GKostenstellen
    2. .DataSource = Nothing
    3. .ReadOnly = False
    4. .EnableHeadersVisualStyles = False
    5. .ColumnHeadersDefaultCellStyle.BackColor = Monitor.Farbe_DGVHeader
    6. .ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False
    7. .DataSource = IB.Wohnung.Kostenstelle.Dat_Kostenstellen.DataTabelle
    8. .Columns("ID").Visible = False
    9. .Columns("Wohnung").Visible = False
    10. .Columns("Wohnungnummer").Visible = False
    11. .Columns("Mieternummer").Visible = False
    12. .Columns("Objektnummer").Visible = False
    14. With .Columns("Nummer")
    15. .ToolTipText = "Kosten Nummer"
    16. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    17. .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
    18. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    19. .DefaultCellStyle.BackColor = Monitor.Farbe_Panel
    20. .ReadOnly = True
    21. End With
    23. With .Columns("Zaehlernummer")
    24. .HeaderText = "Zähler Nr."
    25. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    26. .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
    27. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    28. .ReadOnly = True
    29. End With
    31. With .Columns("Buchungsjahr")
    32. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    33. .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
    34. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    35. .ReadOnly = True
    36. End With
    38. With .Columns("Menge")
    39. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    40. .DefaultCellStyle.Format = "N2"
    41. .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
    42. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    43. .ReadOnly = True
    44. End With
    46. With .Columns("Betrag")
    47. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
    48. .DefaultCellStyle.Format = "N2"
    49. .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
    50. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    51. .ReadOnly = True
    52. End With
    54. With .Columns("RE-Nummer")
    55. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    56. .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
    57. .AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    58. .ReadOnly = False
    59. End With
    61. With .Columns("Aktiv")
    62. .ToolTipText = "Kostenstelle ist aktiviert"
    63. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    64. .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
    65. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    66. .ReadOnly = True
    67. End With
    69. For I = 12 To 23
    70. With .Columns(I)
    71. .ToolTipText = MBDLL.MB.Funktion.Kalender_Monatsname(CInt(.HeaderText)) & " " & IB.Objekt.Buchungsjahr.ToString
    72. .HeaderText = Strings.Left(.ToolTipText, 3) & "."
    73. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    74. .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
    75. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    76. .ReadOnly = False ' Muss eigentlich nicht gesetzt werden
    77. End With
    79. Next I
    80. I = 0
    82. End With


    Das Feld RE-Nummer ist änderbar.
    Was übersehe ich da?
    Gruß Markus

    @Westerwälder Wie und wo weist Du denn den CheckBoxen einen Wert zu?
    Per Code oder per Mausklick?
    Per Code:
    .Value = True|False
    Besser ist es, dem DGV eine passende DataTable als DataSource zuzuweisen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Was sind denn diese Columns 12-23? Außer in der For-Schleife sehe ich keinen Bezug. Oder ist das oben noch drin? Kann ich nicht erkennen. Wie ist das DGV im Designer eingerichtet? Was sagt der SmartTag: Das der Benutzer das DGV bearbeiten?

    Ich würde eher die Daten in nem tDS-Designer modellieren und die DGV-Eigenschaften im Designer festlegen, aber Deine Entscheidung.
    Was hat es mit Zeile#80 auf sich? I ist da nicht mehr definiert. Zumindest für den gezeigten Codeblock.
    Und: Zeile#72: Bevor Du weitermachst, bitte die empfohlenen VS-Einstellungen verwenden. Strings.Left ist aus dem VB6-Namespace.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Da mir Access momentan nicht zur Verfügung steht, konnte ich es nur "offline" machen. Klappt soweit. Es wäre allerdings (zumindest das nächste Mal) einfacher, die ganze Geschichte einzudampfen: Hat der Code denn überhaupt einen Einfluss auf das Problem? Die DGV-Formatierungsangaben und ToolTipText-Setzungen doch sicher nicht. Was passiert denn, wenn Du nur die DataSource setzt und den Rest auskommentierst? Wenn das klappt, dann schrittweise alles wieder aktivieren, bis die problematischen Zeilen gefunden sind. Wenn auch das Setzen der DataSource allein schon das Problem aufzeigt: Na dann gibt's heute abend roten Hering.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

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

    Habe nun alles weg, bis auf Datasource.

    Gleiches Ergebnis.
    Textboxen lassen sich bearbeiten, Checkboxen nicht.


    Na dann gibt's heute abend roten Hering. Sieht wohl so aus.

    Nachdem ich das DGV gelöscht und durch ein neues ersetzt habe, funktioniert nun die Sache.
    Keine Ahnung was da nun falsch eingestellt war, da es sich ja ausschließlich auf die Checkboxen auswirkte.
    Gruß Markus

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Westerwälder“ ()

Facebook
Telefonspende