Hi Guys,
I have a datagrid wit editing and updating.
But after adding Paging IT WON'T PAGE!!
It compiles well but when i click on the paging link it doesn't go to the
next link..
When i remove AllowCutomPagin g it gives error:-
"AllowCustomPag ing must be true and VirtualItemCoun t must be set for a
DataGrid with ID MenuGrid when AllowPaging is set to true and the selected
datasource does not implement ICollection"
My code is below for reference THANKS!
---------------------------------------------------------------------------
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
MenuGrid.Virtua lItemCount = 200
' Databind the data grid on the first request only
' (on postback, bind only in editing, paging and sorting commands)
BindDataGrid()
End If
End Sub
Sub BindDataGrid()
Dim DBConnection As SqlConnection
Dim DBCommand As SqlCommand
Dim DBReader As SqlDataReader
Dim SQLString As String
DBConnection = New
SqlConnection(" server=(local); database=Northw ind;integrated security=true;" )
DBConnection.Op en()
'SQLString = "SELECT * FROM Products1 ORDER BY ItemNumber"
SQLString = "SELECT * FROM treetable ORDER BY FileCategoryID"
DBCommand = New SqlCommand(SQLS tring, DBConnection)
DBReader = DBCommand.Execu teReader()
MenuGrid.DataSo urce = DBReader
MenuGrid.DataBi nd()
DBReader.Close( )
DBConnection.Cl ose()
End Sub
Sub EditRecord(ByVa l Src As Object, ByVal Args As
DataGridCommand EventArgs)
MenuGrid.EditIt emIndex = Args.Item.ItemI ndex
BindDataGrid()
End Sub
Sub UpdateRecord(By Val Src As Object, ByVal Args As
DataGridCommand EventArgs)
Dim DBConnection As SqlConnection
Dim DBCommand As SqlCommand
Dim DBReader As SqlDataReader
Dim SQLString As String
' Dim ItemNumber = CType(Args.Item .Cells(0).Contr ols(0), TextBox).Text
' Dim ItemSupplier = CType(Args.Item .Cells(1).Contr ols(0),
TextBox).Text
' Dim ItemType = CType(Args.Item .Cells(2).Contr ols(0), TextBox).Text
' Dim ItemName = CType(Args.Item .Cells(3).Contr ols(0), TextBox).Text
'Dim ItemPrice = CType(Args.Item .Cells(4).Contr ols(0), TextBox).Text
'Dim ItemQuantity = CType(Args.Item .Cells(5).Contr ols(0),
TextBox).Text
Dim FileCategoryID = CType(Args.Item .Cells(0).Contr ols(0),
TextBox).Text
Dim ParentID = CType(Args.Item .Cells(1).Contr ols(0), TextBox).Text
Dim FileCategory = CType(Args.Item .Cells(2).Contr ols(0), TextBox).Text
Dim NavigateUrl = CType(Args.Item .Cells(3).Contr ols(0), TextBox).Text
Dim Target = CType(Args.Item .Cells(4).Contr ols(0), TextBox).Text
'SQLString = "UPDATE treetable SET " & _
'"ParentID = '" & ParentID & "', " & _
'"FileCatego ry = '" & FileCategory & "', " & _
'"NavigateUr l = '" & NavigateUrl & "', " & _
'"Target = '" & Target & "' WHERE FileCategoryID ='" &
FileCategoryID & "'"
SQLString = "UPDATE treetable SET " & _
"ParentID = '" & ParentID & "', " & _
"FileCatego ry = '" & Replace(FileCat egory, "'", "''") & "', " & _
"NavigateUr l = '" & Replace(Navigat eUrl, "'", "''") & "', " & _
"Target = '" & Target & "' " & _
"WHERE FileCategoryID ='" & FileCategoryID & "'"
'SQLString = "UPDATE Products1 SET " & _
' "ItemType = '" & ItemType & "', " & _
' "ItemSuppli er = '" & Replace(ItemSup plier, "'", "''") &
"', " & _
' "ItemName = '" & Replace(ItemNam e, "'", "''") & "', " & _
' "ItemPrice = " & ItemPrice & ", " & _
' "ItemQuanti ty = " & ItemQuantity & " " & _
' "WHERE ItemNumber = '" & ItemNumber & "'"
DBConnection = New
SqlConnection(" server=(local); database=Northw ind;integrated security=true;" )
DBConnection.Op en()
DBCommand = New SqlCommand(SQLS tring, DBConnection)
DBCommand.Execu teNonQuery()
DBConnection.Cl ose()
MenuGrid.EditIt emIndex = -1
BindDataGrid()
End Sub
Sub CancelRecord(By Val Src As Object, ByVal Args As
DataGridCommand EventArgs)
MenuGrid.EditIt emIndex = -1
BindDataGrid()
End Sub
Sub MenuGrid_Page(B yVal Sender As Object, ByVal E As
DataGridPageCha ngedEventArgs)
MenuGrid.Curren tPageIndex = E.NewPageIndex
BindDataGrid()
End Sub
End Class
-----------------------------------------------------
<asp:DataGrid id="MenuGrid" runat="server"
OnEditCommand=" EditRecord"
OnUpdateCommand ="UpdateReco rd"
OnCancelCommand ="CancelReco rd"
AutoGenerateCol umns="False"
Width="700"
BackColor="#ccc cff"
BorderColor="bl ack"
ShowFooter="fal se"
CellPadding=3
CellSpacing="0"
Font-Name="Verdana"
Font-Size="8pt"
HeaderStyle-BackColor="#aaa add"
AlternatingItem Style-BackColor="#fff fcc"
CssClass="P"
OnPageIndexChan ged="MenuGrid_P age"
PageSize="2"
AllowPaging="Tr ue"
AllowCustomPagi ng="true">
