DROPDOWNLIST che aggancia una funzione - trovata soluzione

[victor8872]

Ciao a tutti
magari a qualcuno puo' servire.

Tempo fa avevo questo problema:
-estrapolavo dei numeri da un db (i numeri sono una data al contrario es: 20181025)
-con questi numeri popolavo una drop
esempio:
20181025
20171012
20150203
ecc......

Avevo un problema: non sapevo come fare a popolare la drop visualizzando i numeri in modo corretto
ovvero:
25/10/2018
12/10/2017
03/02/2015
ecc....

Oggi, dopo varie peripezie, ho trovato questa soluzione (magari a qualcuno puo' servire)

sub page_load (obj as object, e as eventargs)

dim objcmd_ver34dsm2 as new oledbcommand (" select distinct  datanum from mov where cosa_fai = 'paghe_staff' order by datanum desc  ", objconn)


    dim read34dsm2 as oledbdatareader
    
    objconn.open
    read34dsm2=objcmd_ver34dsm2.executereader
    

    dim scade2 as string

    while read34dsm2.read

    If Not read34dsm2("datanum") Is System.DBNull.Value Then
scade2 = read34dsm2("datanum") 
end if

    Dim elemento As System.Web.UI.WebControls.ListItem = New System.Web.UI.WebControls.ListItem()
    
        dim datag as string=right(scade2, 2)
     dim datam as string=mid(scade2, 5, 2)
     dim dataa as string=left(scade2, 4)
    dim data2 as string=datag & "/" & datam & "/" & dataa
    

    elemento.Text = data2
    elemento.Value = data2
    anno_scolastico.Items.Add(elemento)

    end while

    read34dsm2.close
    objcmd_ver34dsm2.connection.close()

end sub

e questo è il drop

<asp:dropdownlist id="anno_scolastico" runat="server" Font-Name="verdana" ForeColor="#0000FF" Font-Size="13" OnSelectedIndexChanged="prima_sel" AutoPostBack="true"    AppendDataBoundItems="true"> 
<asp:ListItem Value="">---</asp:ListItem></asp:DropDownList>

ciao a tutti

[U235]

Ciao,
puoi anche utilizzare questo:

'stringa iniziale = 20180521; risultato finale = 21/05/2018
  dim data2 as string =DateTime.ParseExact(scade2,"yyyyMMdd",System.Globalization.CultureInfo.InvariantCulture).ToString("dd/MM/yyyy")

al posto di questo:

 dim datag asstring=right(scade2,2)
     dim datam asstring=mid(scade2,5,2)
     dim dataa asstring=left(scade2,4)
    dim data2 asstring=datag &"/"& datam &"/"& dataa