Welcome to Your Alentus ASP.NET Hosting Account

Source code for gridevents.aspx | Run the Sample | Home
<%@ Import Namespace="System.IO" %> 
<%@ Import Namespace="System.Data" %> 

<script language="VB" runat="server">

Sub Page_Load(Src As Object, E As EventArgs) 
If Not (IsPostBack) 
DataLoad("isbn") 
End If 
End Sub 

Sub DataLoad(parmsort as string) 
        Dim ds As New DataSet 
        Dim FS As New FileStream(Server.MapPath("books.xml"), FileMode.Open) 
        ds.ReadXml(FS) 
        MyDataGrid.DataSource = new DataView(ds.Tables(0)) 
        MyDataGrid.DataBind() 
        FS.close() 
END SUB 

Sub DataSort(Src As Object, E As DataGridSortCommandEventArgs) 
    ' Bug if we sort, then Edit Item Becomes Wrong 
    IF MyDataGrid.EditItemIndex=-1 THEN 
        DataLoad(e.sortexpression) 
    ELSE 
        response.write ("Can't sort until editing is done!") 
    END IF 
End Sub 

Sub DataDelete(Sender As Object, E As DataGridCommandEventArgs) 
    DIM deletekey as string 
    IF MyDataGrid.EditItemIndex=-1 THEN 
        deletekey=MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) 
        response.write ("deleted " & deletekey) 
    ELSE 
        response.write ("Can't delete until editing is done!") 
    END IF 
END SUB 


Sub DataEdit(Sender As Object, E As DataGridCommandEventArgs) 
        DIM editkey as string 
MyDataGrid.EditItemIndex = Cint(E.Item.ItemIndex) 
editkey=MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) 
'response.write ("To Be Edited" & editkey) 
DataLoad("") 
End Sub 

Sub DataCancel(Sender As Object, E As DataGridCommandEventArgs) 
MyDataGrid.EditItemIndex = -1 
response.write ("edit was cancelled") 
DataLoad("") 
End Sub 

Sub DataUpdate(Sender As Object, E As DataGridCommandEventArgs) 
        DIM editkey as string 
        MyDataGrid.EditItemIndex = -1 
editkey = MyDataGrid.DataKeys(CInt(E.Item.ItemIndex)) 
response.write ("To Be Updated " & editkey) 
        DataLoad("") 
' howmanycols = E.Item.Cells.Count 
End Sub 

</script>

<html>
<body>

<span runat="server" id="MySpan"/> 

<form runat="server"> 

<ASP:DataGrid id="MyDataGrid" runat="server" 

AllowSorting="true" 
OnSortCommand="DataSort" 
OnDeleteCommand="DataDelete" 
OnEditCommand="DataEdit" 
OnCancelCommand="DataCancel" 
OnUpdateCommand="DataUpdate" 
DataKeyField="isbn" 

Width="100%" 
BackColor="white" 
BorderColor="black" 
ShowFooter="false" 
CellPadding=3 
CellSpacing="0" 
Font-Name="Verdana" 
Font-Size="8pt" 
Headerstyle-BackColor="lightblue" 
Headerstyle-Font-Size="10pt" 
Headerstyle-Font-Style="bold" 
MaintainState="true" 
> 
 <Columns> 
<asp:ButtonColumn Text="Delete Book" CommandName="Delete"/> 
<asp:EditCommandColumn EditText="Edit" CancelText="Cancel" UpdateText="Update" ItemStyle-Wrap="false"/> 
 </columns> 
</ASP:DataGrid> 
</form> 

</body>
</html>