DGV Datumsformat anpassen geht nicht.

  • VB.NET
  • .NET (FX) 3.0–3.5

Es gibt 36 Antworten in diesem Thema. Der letzte Beitrag () ist von Orion.

    DGV Datumsformat anpassen geht nicht.

    Guten Tag Zusammen

    Hab wieder eine Frage. Ich habe ein Ansichts DGV die eine Tabelle aus der Datenbank darstellen soll. Darin befindet sich ein DateTime Wert den ich genutzt habe für die Zeit eingabe im Format "00:00" Habe dazu auch im DGV das Format eingestellt auf t. Wenn ich nun aber das DGV lade setzt er mir trotzdem noch ein Datum vornedran. Wie behebe ich das?

    mfg Orion

    Formatseinstellung:


    Zellenansicht:
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Sample anhängen geht schlecht weil wie schon mal gesagt, ist es ein Firmenprojekt. Aber vielleicht hilft es wenn ich den Form_Load Code poste?
    Vielleicht ist hier ein Konflikt drin oder so...
    Spoiler anzeigen

    VB.NET-Quellcode

    1. ​ Private Sub Ansicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    2. 'TODO: Diese Codezeile lädt Daten in die Tabelle "PmdbDataSet.Kunde". Sie können sie bei Bedarf verschieben oder entfernen.
    3. Me.KundeTableAdapter.Fill(Me.PmdbDataSet.Kunde)
    4. 'TODO: Diese Codezeile lädt Daten in die Tabelle "PmdbDataSet.Datatable". Sie können sie bei Bedarf verschieben oder entfernen.
    5. 'Me.ZeitDataGridViewTextBoxColumn.DefaultCellStyle.Format = "hh:mm tt"
    6. Me.DatatableTableAdapter.Fill(Me.PmdbDataSet.Datatable)
    8. Try
    9. For Each r As DataGridViewRow In Me.DataGridView1.Rows
    10. If r.Cells(0).Value.ToString = "Offen" Then
    11. r.Cells(0).Style.ForeColor = Color.Red
    12. r.Cells(1).Style.ForeColor = Color.Red
    13. r.Cells(2).Style.ForeColor = Color.Red
    14. r.Cells(3).Style.ForeColor = Color.Red
    15. r.Cells(4).Style.ForeColor = Color.Red
    16. r.Cells(5).Style.ForeColor = Color.Red
    17. r.Cells(6).Style.ForeColor = Color.Red
    18. r.Cells(7).Style.ForeColor = Color.Red
    20. End If
    21. If r.Cells(0).Value.ToString = "Erledigt" Then
    22. r.Cells(0).Style.ForeColor = Color.Gray
    23. r.Cells(1).Style.ForeColor = Color.Gray
    24. r.Cells(2).Style.ForeColor = Color.Gray
    25. r.Cells(3).Style.ForeColor = Color.Gray
    26. r.Cells(4).Style.ForeColor = Color.Gray
    27. r.Cells(5).Style.ForeColor = Color.Gray
    28. r.Cells(6).Style.ForeColor = Color.Gray
    29. r.Cells(7).Style.ForeColor = Color.Gray
    31. End If
    32. If r.Cells(0).Value.ToString = "Geplant" Then
    33. r.Cells(0).Style.ForeColor = Color.Green
    34. r.Cells(1).Style.ForeColor = Color.Green
    35. r.Cells(2).Style.ForeColor = Color.Green
    36. r.Cells(3).Style.ForeColor = Color.Green
    37. r.Cells(4).Style.ForeColor = Color.Green
    38. r.Cells(5).Style.ForeColor = Color.Green
    39. r.Cells(6).Style.ForeColor = Color.Green
    40. r.Cells(7).Style.ForeColor = Color.Green
    42. End If
    44. Next r
    45. 'Me.ZeitDataGridViewTextBoxColumn.DefaultCellStyle.Format = "hh:mm tt"
    46. Catch ex As Exception
    47. 'MsgBox(ex.ToString)
    48. End Try
    49. End Sub
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Ich dachte, du hattest das Format für die Zeit im Designer des DGV eingestellt?
    Im FormLoad-Ereignis hast du es ja richtigerweise wegkommentiert - und da brauchst du es ja auch nicht.
    Da muss in deinem Code noch wo anders ein Format angegeben sein...
    In deinem FormLoad-Event gehören eigentlich nur deine Fill-Methoden.
    Den ganzen Try-Catch tust du wieder weg.
    Versuche deine DGV-Felder mit dem CellPaint-Ereignis einzufärben - zu dem ist es ja auch da...
    Da wurde in einem anderen Thread bereits darauf hingewiesen

    Da im Code selber ja nicht viel Infos über das Projekt selber sind, hier mal der gesamte Code für die Ansichtsform:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Collections.Generic
    2. Imports System.ComponentModel
    3. Imports System.Data
    4. Imports System.Drawing
    5. Imports System.Text
    6. Imports System.Windows.Forms
    7. Imports System.IO
    8. Imports System.Diagnostics
    9. Imports PackageManagerV2.pmdbDataSet
    11. Partial Public Class Ansicht
    12. Inherits Form
    16. Private Sub Ansicht_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    17. 'TODO: Diese Codezeile lädt Daten in die Tabelle "PmdbDataSet.Kunde". Sie können sie bei Bedarf verschieben oder entfernen.
    18. Me.KundeTableAdapter.Fill(Me.PmdbDataSet.Kunde)
    19. 'TODO: Diese Codezeile lädt Daten in die Tabelle "PmdbDataSet.Datatable". Sie können sie bei Bedarf verschieben oder entfernen.
    20. 'Me.ZeitDataGridViewTextBoxColumn.DefaultCellStyle.Format = "hh:mm tt"
    21. Me.DatatableTableAdapter.Fill(Me.PmdbDataSet.Datatable)
    23. Try
    24. For Each r As DataGridViewRow In Me.DataGridView1.Rows
    25. If r.Cells(0).Value.ToString = "Offen" Then
    26. r.Cells(0).Style.ForeColor = Color.Red
    27. r.Cells(1).Style.ForeColor = Color.Red
    28. r.Cells(2).Style.ForeColor = Color.Red
    29. r.Cells(3).Style.ForeColor = Color.Red
    30. r.Cells(4).Style.ForeColor = Color.Red
    31. r.Cells(5).Style.ForeColor = Color.Red
    32. r.Cells(6).Style.ForeColor = Color.Red
    33. r.Cells(7).Style.ForeColor = Color.Red
    35. End If
    36. If r.Cells(0).Value.ToString = "Erledigt" Then
    37. r.Cells(0).Style.ForeColor = Color.Gray
    38. r.Cells(1).Style.ForeColor = Color.Gray
    39. r.Cells(2).Style.ForeColor = Color.Gray
    40. r.Cells(3).Style.ForeColor = Color.Gray
    41. r.Cells(4).Style.ForeColor = Color.Gray
    42. r.Cells(5).Style.ForeColor = Color.Gray
    43. r.Cells(6).Style.ForeColor = Color.Gray
    44. r.Cells(7).Style.ForeColor = Color.Gray
    46. End If
    47. If r.Cells(0).Value.ToString = "Geplant" Then
    48. r.Cells(0).Style.ForeColor = Color.Green
    49. r.Cells(1).Style.ForeColor = Color.Green
    50. r.Cells(2).Style.ForeColor = Color.Green
    51. r.Cells(3).Style.ForeColor = Color.Green
    52. r.Cells(4).Style.ForeColor = Color.Green
    53. r.Cells(5).Style.ForeColor = Color.Green
    54. r.Cells(6).Style.ForeColor = Color.Green
    55. r.Cells(7).Style.ForeColor = Color.Green
    57. End If
    59. Next r
    60. 'Me.ZeitDataGridViewTextBoxColumn.DefaultCellStyle.Format = "hh:mm tt"
    61. Catch ex As Exception
    62. 'MsgBox(ex.ToString)
    63. End Try
    64. End Sub
    66. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    67. Try
    68. DataGridView1.Dispose()
    69. Me.Close()
    70. Catch
    71. End Try
    73. End Sub
    76. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    77. 'TODO: Diese Codezeile lädt Daten in die Tabelle "PmdbDataSet.Datatable". Sie können sie bei Bedarf verschieben oder entfernen.
    78. Me.DatatableTableAdapter.Fill(Me.PmdbDataSet.Datatable)
    79. DataGridView1.Update()
    80. 'Me.ZeitDataGridViewTextBoxColumn.DefaultCellStyle.Format = "hh:mm tt"
    81. Try
    83. For Each r As DataGridViewRow In Me.DataGridView1.Rows
    84. If r.Cells(0).Value.ToString = "Offen" Then
    85. r.Cells(0).Style.ForeColor = Color.Red
    86. r.Cells(1).Style.ForeColor = Color.Red
    87. r.Cells(2).Style.ForeColor = Color.Red
    88. r.Cells(3).Style.ForeColor = Color.Red
    89. r.Cells(4).Style.ForeColor = Color.Red
    90. r.Cells(5).Style.ForeColor = Color.Red
    91. r.Cells(6).Style.ForeColor = Color.Red
    92. r.Cells(7).Style.ForeColor = Color.Red
    94. End If
    95. If r.Cells(0).Value.ToString = "Erledigt" Then
    96. r.Cells(0).Style.ForeColor = Color.LightGray
    97. r.Cells(1).Style.ForeColor = Color.LightGray
    98. r.Cells(2).Style.ForeColor = Color.LightGray
    99. r.Cells(3).Style.ForeColor = Color.LightGray
    100. r.Cells(4).Style.ForeColor = Color.LightGray
    101. r.Cells(5).Style.ForeColor = Color.LightGray
    102. r.Cells(6).Style.ForeColor = Color.LightGray
    103. r.Cells(7).Style.ForeColor = Color.LightGray
    105. End If
    106. If r.Cells(0).Value.ToString = "Geplant" Then
    107. r.Cells(0).Style.ForeColor = Color.LightGreen
    108. r.Cells(1).Style.ForeColor = Color.LightGreen
    109. r.Cells(2).Style.ForeColor = Color.LightGreen
    110. r.Cells(3).Style.ForeColor = Color.LightGreen
    111. r.Cells(4).Style.ForeColor = Color.LightGreen
    112. r.Cells(5).Style.ForeColor = Color.LightGreen
    113. r.Cells(6).Style.ForeColor = Color.LightGreen
    114. r.Cells(7).Style.ForeColor = Color.LightGreen
    116. End If
    118. Next r
    120. Catch ex As Exception
    121. 'MsgBox(ex.ToString)
    122. End Try
    123. Timer1.Start()
    124. End Sub
    126. Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
    127. DataGridView1.ClearSelection()
    129. End Sub
    130. End Class

    Ich seh da jetzt nichts was reinfunken könnte.
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Wie gesagt, wenn du im Designer bereits das Format mit "t" festgelegt hast, dann tue zumindest auch noch Zeile #80 raus...
    Irgendwo im anderen Codegefüge noch weitersuchen und die Vorschläge in meinen vorigen Post nochmals anschauen...

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

    Das ist ja alles aukommentiert. War nur zum testen da weils eben nicht funktioniert...
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Orion schrieb:

    VB.NET-Quellcode

    1. Me.ZeitDataGridViewTextBoxColumn.DefaultCellStyle.Format = "hh:mm tt"
    Deine Format-Vorgabe ist Grütze.
    Such Dir im Designer das richtige Format aus und schreib die Formatierungs-Zeichenfolge ab:
    "D", "f", "t", "F" usw.
    Bilder

    • Format.png

      25,85 kB, 486×400, 141 mal angesehen
    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!

    Hab ich doch gemacht x.x es will aber nicht gehen @.@
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Orion schrieb:

    Hab ich doch gemacht
    Probier mal dies, Form mit DGV, 3 Button:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private table As DataTable
    3. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    4. Me.InitDataTable()
    6. Dim newRow As DataRow = Me.table.NewRow()
    7. newRow(0) = "bla"
    8. newRow(1) = DateTime.Now
    9. Me.table.Rows.Add(newRow)
    10. Me.DataGridView1.DataSource = Me.table
    11. End Sub
    13. Private Sub InitDataTable()
    14. Me.table = New DataTable()
    15. Me.table.TableName = "Filme"
    17. Me.table.Columns.Add(New DataColumn() With { _
    18. .ColumnName = "Title", _
    19. .DataType = GetType(String) _
    20. })
    22. Me.table.Columns.Add(New DataColumn() With { _
    23. .ColumnName = "Datum", _
    24. .DataType = GetType(DateTime) _
    25. })
    27. Me.table.DefaultView.Sort = "Title ASC" ' "DESC"
    28. End Sub
    30. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    31. Me.DataGridView1.DefaultCellStyle.Format = "D"
    32. End Sub
    34. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    35. Me.DataGridView1.DefaultCellStyle.Format = "F"
    36. End Sub
    38. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    39. Me.DataGridView1.DefaultCellStyle.Format = "t"
    40. End Sub
    41. End Class
    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!

    Ja, Button 1 und 3 machen was sie sollen. Muss ich nun das DGV umschreiben zu manuellem befüllen? Oder was genau wäre die beste Option?
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Orion schrieb:

    beste Option
    Poste mal Deinen Code / Dein Projekt.
    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!

    Hast du nun mit Designer, wie im Eingangspost beschrieben das Format eingestellt (Ja oder Nein) ?
    Wenn Nein, dann mache es...
    Wenn Ja, dann suche mit der Schnellsuche deinen gesamten ProjektCode ab, wo ZeitDataGridViewTextBoxColumn.DefaultCellStyle.Format = steht und schaue danach...

    @RodFromGermany
    Ich kann eben leider nicht den ganzen Code posten :/
    Habe jetzt aber folgendes probiert auszuführen mit dem Button auf der richtigen DGV

    VB.NET-Quellcode

    1. ​Me.DataGridView1.Columns("Zeit").DefaultCellStyle.Format = "t"

    Wenn ich ihn ausführ bekomm ich eine Nullreference Exception. Mach ich dasselbe jedoch mit dem ersten DateTime Feld funktioniert es.(Auf diesem wird es aber nicht gebraucht.)
    @VB1963
    Ja, hab ich alles schon gemacht...
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Das DGV ist so aufgebaut:
    Status | Auftrag | Termin | Info | Zeit | Kunde | Adresse | Zusatzinfo

    In der Spalte Termin ist ein ganz normales DateTime und in der Spalte Zeit kommt dann eben eine 24h Ansicht die mit Info zusammenhängt in der man eine Combobox mit nicht vor, bis und - hat. Die Column Zeit existiert auch...
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Okay, hier ist die Meldung die ich bekomme:
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

    Teile die Zeile auf mehrere Zeilen auf...

    VB.NET-Quellcode

    1. Dim dgv = Me.DataGridView1
    2. Dim col = dgv.Columns("Zeit")
    3. Dim stl = col.DefaultCellStyle
    4. Dim fmt = stl.Format = "t"
    und probiere es nochmals
    oder fahre mit der Maus über deine Fehlerzeile und schau was dir die IDE dazu sagt...

    Bei

    VB.NET-Quellcode

    1. Dim stl = col.DefaultCellStyle

    unterbricht er mit demselben NullReference Fehler... Ganz genau in der Zeile kann ichs mir nicht anzeigen lassen.
    Metal-Schweiz wurde nun offiziell veröffentlich nach all den Jahren :)

Facebook
Telefonspende