Protected Sub anno_scolastico_DataBinding(ByVal sender As Object, ByVal e As EventArgs)
dim objcmd as new oledbdataadapter ("select distinct datanum from mov where cosa_fai = 'paghe_staff' order by datanum desc ", objconn)
dim ds as dataset=new dataset()
objcmd.fill (ds,"intervalli")
Dim strSQL as String = "select distinct datanum from mov where cosa_fai = 'paghe_staff' order by datanum desc "
Dim objCmd2 as OleDbCommand
objConn.Open()
objCmd2 = new OleDbCommand(strSQL, objConn)
dim MyCommand As New OledbDataAdapter(strSQL,objConn)
ds = new DataSet()
MyCommand.Fill(ds, "datanum")
objConn.Close
Dim dt As DataTable = ds.Tables(0)
For Each riga As System.Data.DataRow In dt.Rows
Dim d As DateTime = New DateTime()
d = CType(riga("datanum"), DateTime)
Dim giorno As String = d.Day.ToString()
Dim mese As String = d.Month.ToString()
Dim anno As String = d.Year.ToString()
Dim dataOut As String = giorno & "/" & mese & "/" & anno
Dim elemento As System.Web.UI.WebControls.ListItem = New System.Web.UI.WebControls.ListItem()
elemento.Text = dataOut
elemento.Value = dataOut
d.Items.Add(elemento)
Next
End Sub