01.
Dim
dt
As
New
DataTable
02.
Dim
dr
As
DataRow
03.
DIm i
As
Integer
04.
Dim
strNowDate
As
Date
=
"16-Feb-2010"
05.
06.
07.
dt.Columns.Add(
"ListDate"
)
08.
09.
10.
For
i = 1
To
15
11.
dr = dt.NewRow
12.
dr(
"ListDate"
) = DateAdd(DateInterval.Day,1,
CDate
(strNowDate))
13.
dt.Rows.Add(dr)
14.
Next
15.
16.
17.
Me
.GridView.DataSource = dt