Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
If (e.Row.RowType = DataControlRowType.Footer) Then
e.Row.Cells(0).ColumnSpan = 10
e.Row.Cells.RemoveAt(9)
e.Row.Cells.RemoveAt(8)
e.Row.Cells.RemoveAt(7)
e.Row.Cells.RemoveAt(6)
e.Row.Cells.RemoveAt(5)
e.Row.Cells.RemoveAt(4)
e.Row.Cells.RemoveAt(3)
e.Row.Cells.RemoveAt(2)
e.Row.Cells.RemoveAt(1)
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(0).Text = "Show Rows :"
End If
Dim ddlRows As DropDownList = New DropDownList
ddlRows.Items.Insert(1, New ListItem("20", "20"))
ddlRows.Items.Insert(2, New ListItem("30", "30"))
ddlRows.Items.Insert(3, New ListItem("40", "40"))
ddlRows.Items.Insert(4, New ListItem("50", "50"))
e.Row.Cells(0).Text = ddlRows.ToString
If (e.Row.RowType = DataControlRowType.Footer) Then
e.Row.Cells(0).ColumnSpan = 9
e.Row.Cells.RemoveAt(9)
e.Row.Cells.RemoveAt(8)
e.Row.Cells.RemoveAt(7)
e.Row.Cells.RemoveAt(6)
e.Row.Cells.RemoveAt(5)
e.Row.Cells.RemoveAt(4)
e.Row.Cells.RemoveAt(3)
e.Row.Cells.RemoveAt(2)
Dim ddlRows As DropDownList = New DropDownList()
ddlRows.Items.Insert(0, New ListItem("20", "20"))
ddlRows.Items.Insert(1, New ListItem("30", "30"))
ddlRows.Items.Insert(2, New ListItem("40", "40"))
ddlRows.Items.Insert(3, New ListItem("50", "50"))
ddlRows.AutoPostBack = True
ddlRows.Width = 50
e.Row.Cells(1).Text = "Show Rows :"
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Right
e.Row.Cells(1).Controls.Add(ddlRows)
e.Row.Cells(0).Text = "Page " & (gvVendorSearch.PageIndex + 1) & " of " & gvVendorSearch.PageCount
End If
If (e.Row.RowType = DataControlRowType.Footer) Then
e.Row.Cells(0).ColumnSpan = 10
e.Row.Cells.RemoveAt(9)
e.Row.Cells.RemoveAt(8)
e.Row.Cells.RemoveAt(7)
e.Row.Cells.RemoveAt(6)
e.Row.Cells.RemoveAt(5)
e.Row.Cells.RemoveAt(4)
e.Row.Cells.RemoveAt(3)
e.Row.Cells.RemoveAt(2)
e.Row.Cells.RemoveAt(1)
Dim ddlPageSize As New DropDownList()
ddlPageSize.ID = "PageSize"
ddlPageSize.AutoPostBack = True
ddlPageSize.Items.Add(New ListItem("10", "10"))
ddlPageSize.Items.Add(New ListItem("20", "25"))
ddlPageSize.Items.Add(New ListItem("30", "50"))
ddlPageSize.Items.Add(New ListItem("40", "100"))
ddlPageSize.Items.Add(New ListItem("All", (Me.gvVendorSearch.PageCount * Me.gvVendorSearch.PageSize).ToString()))
ddlPageSize.AutoPostBack = True
ddlPageSize.Width = Unit.Percentage(5)
' ddlPageSize.SelectedIndexChanged += New EventHandler(AddressOf ddlPageSize_SelectedIndexChanged)
Dim lblShowRow As Label = New Label
Dim lblSpaceHolder As Label = New Label
Dim lblDisTxtFirst As Label = New Label
Dim lblDisTxtLast As Label = New Label
lblDisTxtFirst.Text = "Show "
lblDisTxtLast.Text = " Records Per Page "
lblSpaceHolder.Width = Unit.Percentage(72)
lblShowRow.Text = "Page " & (gvVendorSearch.PageIndex + 1) & " of " & gvVendorSearch.PageCount
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
e.Row.Cells(0).Controls.Add(lblShowRow)
e.Row.Cells(0).Controls.Add(lblSpaceHolder)
e.Row.Cells(0).Controls.Add(lblDisTxtFirst)
e.Row.Cells(0).Controls.Add(ddlPageSize)
e.Row.Cells(0).Controls.Add(lblDisTxtLast)
End If