📄 temp.aspx

📁 asp入门到精通的源代码
💻 ASPX
字号:
<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script runat="server">
   dim ds as DataSet
   dim blnSet as Boolean = false
   
   sub Page_Load(obj as Object, e as EventArgs)
      ds = CreateDataSet
      if not Page.IsPostBack then
         BindGrid
      end if
      blnSet = true
   end sub
   
   sub BindGrid()
      dgColors.DataSource = ds
      dgColors.DataMember = "Colors"
      DataBind()
   end sub
   
   sub ChangeColor(obj as object, e as DataGridItemEventargs)
      dim intIndex as Integer = e.Item.ItemIndex

      if blnSet then
         if intIndex > 0 then
            dgColors.Items(intIndex - 1).BackColor = Drawing.Color.FromName(ds.Tables("Colors").Rows(intIndex-1)("Color"))
            dgColors.Items(intIndex - 1).ForeColor = Drawing.Color.FromName(ds.Tables("Colors").Rows(6-intIndex)("Color"))
         end if
      end if
   end sub
   
   sub dgColors_Edit(obj as object, e as DataGridCommandEventargs)
      dgColors.EditItemIndex = e.Item.ItemIndex
      BindGrid
   end sub
    
   sub dgColors_Cancel(obj as object, e as DataGridCommandEventargs)
      dgColors.EditItemIndex = -1
      BindGrid()
   end sub
   
   sub dgColors_Update(obj as object, e as DataGridCommandEventargs)
      dim strColor as string = Ctype(e.Item.Cells(1).Controls(0), TextBox).Text
      
      ds.Tables("Colors").Rows(e.Item.ItemIndex)("Color") = strColor
      ViewState("Colors")(e.Item.ItemIndex) = strColor
      
      dgColors.EditItemIndex = -1
      BindGrid
   end sub

   function CreateDataSet as DataSet
      'create an array of colors
      dim i as integer
      dim arrColors() as String
      if ViewState("Colors") is nothing then
         arrColors = new String(7) {"red", "orange", "yellow", "green", "blue", "indigo", "violet"}
         ViewState("Colors") = arrColors
      else
         arrColors = ViewState("Colors")
      end if
      
      'create an empty dataset
      ds = new DataSet("MyDataSet")
      
      'create a new table and columns
      dim dTable as New DataTable("Colors")
      dTable.Columns.Add("Color", GetType(String))
      dTable.Columns.Add("ID", GetType(Int32))
      'add table
      ds.Tables.Add(dTable)
        
      'add rows
      for i = 0 to 6
         dim dr as DataRow = dTable.NewRow()
         dr(0) = arrColors(i).ToString
         dr(1) = i
         dTable.Rows.Add(dr)
      next
      
      return ds
   end function
   
</script>

<html><body>
   <form runat="server">
   
   <ASP:DataGrid id="dgColors" runat="server"
      AutogenerateColumns="false"
      width="200" 
      OnEditCommand="dgColors_Edit"
      OnCancelCommand="dgColors_Cancel"
      OnUpdateCommand="dgColors_Update"
      OnItemCreated="ChangeColor" >
     
      <Columns>
         <asp:templateColumn headertext="ID">
            <ItemTemplate>
               <asp:Label id="lblID" runat="server"
                  text='<%# Container.DataItem("ID") %>' />
            </ItemTemplate>
         </asp:templatecolumn>
         
         <asp:BoundColumn datafield="Color" 
            headertext="Color" />
         
         <asp:EditCommandColumn headertext="Change"
            EditText="Edit"
            UpdateText="Change"
            CancelText="Cancel" />
       </Columns>
   </ASP:DataGrid>
</body></html>
💿 文件大小 181 K
👤 上传用户 yq0577
📂 所属分类其他
🏷️ 相关标签

#asp #源代码
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -