Guten Morgen,
trotz Readonly False kann ich den State der Checkboxen im DGV nicht ändern (Columns 12 bis 23).
Textboxen sind änderbar.
Das Feld RE-Nummer ist änderbar.
Was übersehe ich da?
trotz Readonly False kann ich den State der Checkboxen im DGV nicht ändern (Columns 12 bis 23).
Textboxen sind änderbar.
VB.NET-Quellcode
- With DGV_GKostenstellen
- .DataSource = Nothing
- .ReadOnly = False
- .EnableHeadersVisualStyles = False
- .ColumnHeadersDefaultCellStyle.BackColor = Monitor.Farbe_DGVHeader
- .ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False
- .DataSource = IB.Wohnung.Kostenstelle.Dat_Kostenstellen.DataTabelle
- .Columns("ID").Visible = False
- .Columns("Wohnung").Visible = False
- .Columns("Wohnungnummer").Visible = False
- .Columns("Mieternummer").Visible = False
- .Columns("Objektnummer").Visible = False
- With .Columns("Nummer")
- .ToolTipText = "Kosten Nummer"
- .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
- .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
- .DefaultCellStyle.BackColor = Monitor.Farbe_Panel
- .ReadOnly = True
- End With
- With .Columns("Zaehlernummer")
- .HeaderText = "Zähler Nr."
- .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
- .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
- .ReadOnly = True
- End With
- With .Columns("Buchungsjahr")
- .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
- .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
- .ReadOnly = True
- End With
- With .Columns("Menge")
- .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- .DefaultCellStyle.Format = "N2"
- .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
- .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
- .ReadOnly = True
- End With
- With .Columns("Betrag")
- .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
- .DefaultCellStyle.Format = "N2"
- .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
- .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
- .ReadOnly = True
- End With
- With .Columns("RE-Nummer")
- .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
- .AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
- .ReadOnly = False
- End With
- With .Columns("Aktiv")
- .ToolTipText = "Kostenstelle ist aktiviert"
- .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
- .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
- .ReadOnly = True
- End With
- For I = 12 To 23
- With .Columns(I)
- .ToolTipText = MBDLL.MB.Funktion.Kalender_Monatsname(CInt(.HeaderText)) & " " & IB.Objekt.Buchungsjahr.ToString
- .HeaderText = Strings.Left(.ToolTipText, 3) & "."
- .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
- .HeaderCell.Style.Alignment = .DefaultCellStyle.Alignment
- .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
- .ReadOnly = False ' Muss eigentlich nicht gesetzt werden
- End With
- Next I
- I = 0
- End With
Das Feld RE-Nummer ist änderbar.
Was übersehe ich da?
Gruß Markus