Dropdownlist con prima riga vuota

[djciko]

in pratica:

dim objcmd as new oledbdataadapter ("select distinct anno_scolastico from intervalli ", objconn)
dim ds as dataset=new dataset()
objcmd.fill (ds,"intervalli")


Dim strSQL as String = "select distinct anno_scolastico from intervalli"
Dim objCmd2 as OleDbCommand
objConn.Open()
objCmd2 = new OleDbCommand(strSQL, objConn)
dim MyCommand As New OledbDataAdapter(strSQL,objConn)
ds = new DataSet()
MyCommand.Fill(ds, "anno_scolastico")
objConn.Close


anno_scolastico.DataTextField="anno_scolastico" ' campo visualizzato
anno_scolastico.DataValueField="anno_scolastico" ' campo di valore


anno_scolastico.DataSource=ds
anno_scolastico.DataBind()


' Primo item vuoto
Dim a As New ListItem()
a.Text = String.Empty
a.Value = String.Empty

anno_scolastico.Items.Insert(0, a)

ps: il datamember è il nome del datatable, non quello del campo