Markerat datum i en dropdownlist

Løb dine Items igennem

For Each item As ListItem In datoListe
 
  If item.Value = DateTime.Now() Then
    item.Selected = True
  End If
Next

det är ju inte säkert att det finns ett datum i listan som stämmer med dagens datum...

Dim mostRecentListItem As ListItem
mostRecentListItem = datoListe.Items(0)
For Each item As ListItem In datoListe
 
  If ( DateTime.Now() - item.Value ) < ( DateTime.Now() - mostRecentListItem.Value) Then

  mostRecentListItem = item

Next

mostRecentListItem.Selected = True

--- Håber det giver dig en idé om, hvordan du kan gøre det. Jeg er ikke 100% sikker på at kode virker, men det er ret nem at tilpasse.

Så här blev det...tack för hjälpen..

Tomas

Dim mostRecentListItem As ListItem
        Dim todayDate As Date
        Dim mySign
        todayDate = DateTime.Now()
        mostRecentListItem = ddlLan.Items(ddlLan.Items.Count - 1)
        For Each item As ListItem In ddlLan.Items
            mySign = Sign(DateDiff(DateInterval.Day, todayDate, CDate(item.Text)))
            If mySign <> -1 Then
                If DateDiff(DateInterval.Day, todayDate, CDate(item.Text)) < DateDiff(DateInterval.Day, todayDate, CDate(mostRecentListItem.Text)) Then
                    mostRecentListItem = item
                End If
            End If
           
        Next
        mostRecentListItem.Selected = True

Det var så lidt. Glad for at kunne hjælpe.

har du fått poängen..?

Næh.

jag tryycker " Accepter" men det händer inget..:-(

nu gick det....

Se denne tråd http://www.eksperten.dk/spm/451753

mitt fel....glömde markera ditt namn..

Perfekt.