|
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dt As New DataTable
Dim dr As DataRow
dt.Columns.Add(New DataColumn("項目1", GetType(String)))
dt.Columns.Add(New DataColumn("項目2", GetType(String)))
dt.Columns.Add(New DataColumn("項目3", GetType(String)))
Dim i As Integer
For i = 0 To 20
dr = dt.NewRow()
dr(0) = i.ToString + " ITEM_1 "
dr(1) = i.ToString + " ITEM_2 "
dr(2) = i.ToString + " ITEM_3 "
dt.Rows.Add(dr)
Next i
DataGrid1.DataSource = dt
DataGrid1.DataBind()
End Sub |