For i = 0 To 9 dr = dt.NewRow() dr(0) = "Item " & i.ToString() dt.Rows.Add(dr) Next i
Dim dv As New DataView(dt) Return dv
End Function 'CreateDataSource
Sub Page_Load(sender As Object, e As EventArgs)
If Not IsPostBack Then DataList1.DataSource = CreateDataSource() DataList1.DataBind() End If
End Sub 'Page_Load
Sub Button1_Click(sender As Object, e As EventArgs)
If DropDown1.SelectedIndex = 0 Then DataList1.RepeatDirection = RepeatDirection.Horizontal Else DataList1.RepeatDirection = RepeatDirection.Vertical End If
If DropDown2.SelectedIndex = 0 Then DataList1.RepeatLayout = RepeatLayout.Table Else DataList1.RepeatLayout = RepeatLayout.Flow End If
If Check1.Checked = True And DataList1.RepeatLayout = RepeatLayout.Table Then DataList1.BorderWidth = Unit.Pixel(1) DataList1.GridLines = GridLines.Both Else DataList1.BorderWidth = Unit.Pixel(0) DataList1.GridLines = GridLines.None End If