Datetimepicker NUR an Uhrzeit binden

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

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

    Datetimepicker NUR an Uhrzeit binden

    Hallo,

    Habe einen Datetimepicker an eine Datasource gebunden (Nur für die Uhrzeit)
    Bei Änderungen wird die Uhrzeit richtig ins DGV übernommen und auch in der Datenbank richtig abgespeichert.

    Formatierungen:
    Access - Datenbank: Datum Uhrzeit kurz (12:00)
    DGV: t, alternativ versucht HH:mm
    DTP: Customformat HH:mm; Format Custom

    Bei einem neuen Datensatz wird nun das volle Datum gesetzt (13.03.2016 10:15:00)

    Was mache ich falsch?
    Gruß Markus

    Ja sicher

    Hier das DGV und das Binden
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    3. With Me.DGV_Einzeltermine
    4. .ReadOnly = True
    5. .DataSource = Nothing
    6. .Columns.Clear()
    7. .Rows.Clear()
    8. .DataSource = SystemSetup.DataQuelle.DataSource
    9. .EnableHeadersVisualStyles = False
    10. .ColumnHeadersDefaultCellStyle.BackColor = Standard.Farben.Kontrols.Hintergrund_Nebenkontrol
    11. .ColumnHeadersDefaultCellStyle.WrapMode = DataGridViewTriState.False
    12. .Columns("ID").Visible = False
    13. .Columns("Type").Visible = False
    14. .Columns("TypeName").Visible = False
    15. .Columns("Startdatum").Visible = False
    16. .Columns("Enddatum").Visible = False
    17. .Columns("RT").Visible = False
    18. .Columns("Takt").Visible = False
    19. .Columns("DBR").Visible = False
    21. With .Columns("Anwenden")
    22. .HeaderText = " A "
    23. .ToolTipText = "Anwenden / Termin aktiv"
    24. .AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
    25. .SortMode = DataGridViewColumnSortMode.NotSortable
    26. End With
    28. With .Columns("Bezeichnung")
    29. .HeaderText = "Termin - Bezeichnung "
    30. .AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
    31. .SortMode = DataGridViewColumnSortMode.NotSortable
    32. End With
    34. With .Columns("Datum")
    35. .HeaderText = "Termin-Datum"
    36. .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    37. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    38. .AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
    39. .SortMode = DataGridViewColumnSortMode.NotSortable
    40. .DefaultCellStyle.Format = "d"
    41. .ReadOnly = True
    42. End With
    44. With .Columns("Uhrzeit")
    45. .HeaderText = "Termin-Uhrzeit"
    46. .HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
    47. .DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
    48. .AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
    49. .SortMode = DataGridViewColumnSortMode.NotSortable
    50. .DefaultCellStyle.Format = "HH:mm"
    51. .ReadOnly = True
    52. End With
    54. If .Rows.Count > 0 Then .CurrentCell = .Rows(0).Cells("Bezeichnung")
    56. End With
    58. Me.DTP_Datum.DataBindings.Add("Value", SystemSetup.DataQuelle.DataSource, "Datum", True)
    59. Me.DTP_Uhrzeit.DataBindings.Add("Value", SystemSetup.DataQuelle.DataSource, "Uhrzeit", True)




    Neuer Datensatz:

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    3. SystemSetup.DataQuelle.AddNew()
    4. Me.DGV_Einzeltermine.CurrentCell = Me.DGV_Einzeltermine.Rows(Me.DGV_Einzeltermine.Rows.Count - 1).Cells("Bezeichnung")
    5. With Me.DGV_Einzeltermine.CurrentRow
    6. .Cells("Type").Value = "104"
    7. .Cells("TypeName").Value = "Einzeltermin"
    8. .Cells("Anwenden").Value = True
    9. .Cells("Bezeichnung").Value = "Neuer Termin"
    10. .Cells("Datum").Value = Now.ToShortDateString
    11. .Cells("Uhrzeit").Value = "06:00"
    12. .Cells("RT").Value = 0
    13. .Cells("Takt").Value = 0
    14. End With


    Gruß Markus

    Tja, mach Databinding, nicht Control-Gefummel.

    Wenn du im Datensatz eine Uhrzeit haben möchtest, dann mach in den Datensatz die Uhrzeit rein - nicht in iwelche DGV-Zellen.
    also das gilt für alle Properties.
    Also konstruiere den richtigen Datensatz, das DGV zeigt dann schon von selbst das richtige an.

    Datensatz konstruieren?
    Kenne drei Möglichkeiten einen Datensatz anzufügen.

    1) Bindingsource.addnew
    2) Neue Row in Datatable oder
    3) Neue Zeile im DGV erzeugen.

    Verwende eigentlich immer Punkt 1, setze dann die Werte, welche für den User unerheblich sind in die Current Row des DGV.
    Funktioniert eigentlich, bis nun hier auf die Uhrzeit.
    Gruß Markus

    So in der Art?

    Dim Neuanlage As DataRowView = CType(SystemSetup.DataQuelle.AddNew(), DataRowView)

    Neuanlage("Uhrzeit") = "06:00"
    wird im DGV nun angezeigt

    Der DateTimePicker springt noch nicht auf den neuen Wert

    Zu früh gefreut: In der Datenbank steht unter der Uhrzeit weiterhin das komplette Datum.
    Gruß Markus

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

    Weis nicht, was mit dem Teil los ist.
    Neuer Versuch:
    Private Datum_6Uhr As DateTime
    Me.Datum_6Uhr = CDate(Now.ToShortDateString & " 06:00")
    Neuanlage("Uhrzeit") = Format(CDate(Me.Datum_6Uhr), "HH:mm")

    Ergebnis: Komplettes Datum mit Uhrzeit in der Datenbank
    Gruß Markus

    Sicherlich. Datum von heute um 6 Uhr.
    Bekomme die Uhrzeit nur mit Timespan gefiltert, wird aber von der Neuanlage("Uhrzeit") abgewiesen,
    hier wird Datetime verlangt.

    Neuanlage("Uhrzeit") = Me.Datum_6Uhr.TimeOfDay
    Gruß Markus

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

    OK. Bleibt das Problem mit der Uhrzeit

    Private Datum_6Uhr As DateTime
    Me.Datum_6Uhr.TimeOfDay ergibt 06:00:00, obwohl ich die Sekunden nicht wollte

    wird aber von der Bindingsouce abgelehnt, da es nun ein Timespan sei.

    TimeOfDay übersetzte ich als Zeitpunkt und nicht als Zeitspanne
    Gruß Markus

Facebook