vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
TOP-Angebot: 17 bzw. 24 Entwickler-Vollversionen zum unschlagbaren Preis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB.NET - Fortgeschrittene
Datetimepicker MinDatum / MaxDatum 
Autor: ERBRU
Datum: 19.03.18 10:12

habe 2 DTP die ich nun aus einer Datatable mit MinDatum MaxDatum füllen möchte.

habe da kein Dataset nur die dt1 as Datatable

wie geht es damit ?

möchte anschließend damit filtern Einschränken von bis aus den DTP

die Code Zeile Dim col_Datum = dt1.Rows("Eintrag").ToString passt aber nicht?

hier drv.Eintrag sagt er schon mal: ist kein Member von System.Data.Datarow

 'Datum Filter
    Private Sub fill_Stoer_Datum()
        'dt1 = Datatable
        Dim minDatum = (From drv In dt1 Where drv.RowState <> _
          DataRowState.Deleted Select drv.Eintrag).Min
        Dim maxDatum = (From drv In dt1 Where drv.RowState <> _
        DataRowState.Deleted Select drv.Eintrag).Max
 
        If minDatum < dtp_Stoerung_Datum_von.MinDate Then
            dtp_Stoerung_Datum_von.MinDate = minDatum : _
              dtp_Stoerung_Datum_bis.MinDate = minDatum
        End If
        If maxDatum > dtp_Stoerung_Datum_bis.MaxDate Then
            dtp_Stoerung_Datum_von.MaxDate = maxDatum : _
              dtp_Stoerung_Datum_bis.MaxDate = maxDatum
        End If
 
        With dtp_Stoerung_Datum_von
            .MinDate = minDatum : .MaxDate = maxDatum : .Value = minDatum
        End With
 
        With dtp_Stoerung_Datum_bis
            .MinDate = minDatum : .MaxDate = maxDatum : .Value = maxDatum
        End With
    End Sub
    Private Sub dtp_Stoerung_ValueChanged(sender As Object, e As EventArgs) _
      Handles dtp_Stoerung_Datum_von.ValueChanged, _
      dtp_Stoerung_Datum_bis.ValueChanged
        If gbx_Störungen_Datumfilter.Enabled = False Then Return
 
        Dim lst_Datum As New List(Of Date) From {dtp_Stoerung_Datum_von.Value, _
          dtp_Stoerung_Datum_bis.Value}
        check_Stoer_Datum(lst_Datum)
 
        Dim col_Datum = dt1.Rows("Eintrag").ToString
        BindingSource.Filter = String.Format("[{0}] >= '{1}' AND [{0}] <=" & _
          "'{2}'", col_Datum, dtp_Stoerung_Datum_von.Value, _
          dtp_Stoerung_Datum_bis.Value)
    End Sub
    Private Sub check_Stoer_Datum(ByVal lst_Datum As List(Of Date))
        'Wenn Von-Datum > Bis-Datum Dann...
        dtp_Stoerung_Datum_von.Value = lst_Datum.Min
        dtp_Stoerung_Datum_bis.Value = lst_Datum.Max
    End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Datetimepicker MinDatum / MaxDatum968ERBRU19.03.18 10:12
Re: Datetimepicker MinDatum / MaxDatum424effeff20.03.18 17:44
Re: Datetimepicker MinDatum / MaxDatum447ERBRU20.03.18 18:58

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel