Dropdownlist con funzione

[victor8872]

la funzione è : data1

function data1(ByVal X as string)
dim datag as string=right(Trim( X ), 2)
dim datam as string=mid(Trim( X ), 5, 2)
dim dataa as string=left(Trim( X ), 4)
dim data2 as string=datag & "/" & datam & "/" & dataa

return replace(trim(X),Trim( X ),data2)

end function

[victor8872]

questa funzione serve a fare in modo che un campo numerico stampato cosi esempio: 20170107
mi dia una data ovvero: 07/01/2017

[victor8872]

col le label ci sono riuscito ma col dropdownlist no.

Infatti cio' che viene elencato nel dropdownlist è una serie di numeri

[victor8872]

ti allego la foto di come è adesso il dropdownlistscreen.jpg

[victor8872]

vorrei che quei numeri dentro la drop vengano visualizzati a forma di data grazie a quella funzione che ti ho inviato

[pietro09]

Allora, hai un dropdown. Quando lo popoli da database vuoi che quella stringa venga visualizzata come data: è così?

[victor8872]

siiiiiiiiiiiiiiiiiiiiiiiiiiii

[pietro09]

allora, si può fare in molti modi. Il primo che ho trovato.

Dopo che ho popolato il DropDown, faccio la scansione del secondo all'ultimo e correggo la data.

            For i As Integer = 1 To Me.DropDownList1.Items.Count - 1
                Dim li As ListItem = Me.DropDownList1.Items(i)
                li.Text = NumberToDate(CInt(li.Text)).ToString("d")
            Next

dove il metodo NumberToDate è

    '----------------------------------------------------------------------------------
    'dato una data nel formato integer yyyymmgg, restituisce il corrispondente datetime
    '----------------------------------------------------------------------------------
    Public Function NumberToDate(dateTimeNumber As Integer) As DateTime
        Dim a, m, g As Integer
        a = dateTimeNumber \ 10000
        dateTimeNumber = dateTimeNumber - a * 10000

        m = dateTimeNumber \ 100
        dateTimeNumber = dateTimeNumber - m * 100

        g = dateTimeNumber

        Return New DateTime(a, m, g)

    End Function

[pietro09]

questo un altro modo

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Me.IsPostBack Then
            'popolo il DropDown leggendo i dati da database
            'trasformando le date tipo 20170107 in 07/01/2017
            Dim result = ora.GetDataTable(gl.StringaConnessioneORA_PIETRO, "SELECT ID, DATA FROM A").AsEnumerable.
                OrderBy(Function(r) r("data")).
                Select(Function(r) New With {.id = CInt(r("id")), .data = NumberToDate(CInt(r("data"))).ToString("d")})

            Me.DropDownList1.DataSource = result
            Me.DropDownList1.DataTextField = "data"
            Me.DropDownList1.DataValueField = "id"
            Me.DropDownList1.DataBind()

        End If
    End Sub

[djciko]

Sono stato abbastanza chiaro?

No

"Ci voglio mettere dentro questa funzione" non significa niente.

Quello che vuoi fare è formattare gli items .. testo e valore.
Con il bind il metodo del # continua a funzionare