给初学的朋友们，datagrid用xml作为数据源，并且有更新，删除和排序的操作（VB）
点击次数：67 次 发布日期：2008-11-06 08:06:58 作者：源代码网
源代码网推荐 <%@ Import Namespace="System.Data" %> 源代码网推荐 <html> 源代码网推荐 <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> 源代码网推荐 源代码网推荐 <body> 源代码网推荐 源代码网推荐 <h3><font face="Verdana">The Best Books Ever</font> 源代码网推荐 <span runat="server" id="MySpan"/></h3> 源代码网推荐 源代码网推荐 <form runat="server"> 源代码网推荐 <ASP:DataGrid id="MyDataGrid" runat="server" 源代码网推荐 源代码网推荐 AllowSorting="true" 源代码网推荐 OnSortCommand="DataSort" 源代码网推荐 OnDeleteCommand="DataDelete" 源代码网推荐 OnEditCommand="DataEdit" 源代码网推荐 OnCancelCommand="DataCancel" 源代码网推荐 OnUpdateCommand="DataUpdate" 源代码网推荐 源代码网供稿. |
