Creare un DataTable di date

Dim Sql as string = "Select " & e.cDoSection("DADATA").QueryStringValue & " As DATA"

dim DataTable as DataTable = e.cDoConnect.ExecuteQuery(Sql)

For i as integer =1 to DateDiff("d", e.cDoSection("DADATA").Value,e.cDoSection("ADATA").Value)

DIm DataRow as DataRow = DataTable.NewRow

DataRow("DATA")=DateAdd("d",i,cdate(e.cDoPage("FILTER")("DADATA").Value))

DataTable.Rows.add(DataRow)

Next

'Visualizzazione in una section Query

e.cDoPage("QUERYDATA").ExecuteQuery(,DataTable)