您的位置：首页 > 移动开发 > Objective-C

使用 Columns 集合动态向 DataGrid 控件添加列。

2007-08-06 09:47 531 查看

<%@ Page Language="VB" AutoEventWireup="True" %>
<%@ Import Namespace="System.Data" %>

<html>
   <script language="VB" runat="server">
    Dim Cart As DataTable
    Dim CartView As DataView

    Function CreateDataSource() As ICollection
        Dim dt As New DataTable()
        Dim dr As DataRow

        dt.Columns.Add(New DataColumn("IntegerValue", GetType(Int32)))
        dt.Columns.Add(New DataColumn("StringValue", GetType(String)))
        dt.Columns.Add(New DataColumn("CurrencyValue", GetType(Double)))

        Dim i As Integer
        For i = 0 To 8
            dr = dt.NewRow()

            dr(0) = i
            dr(1) = "Item " & i.ToString()
            dr(2) = 1.23 *(i + 1)

            dt.Rows.Add(dr)
        Next i

        Dim dv As New DataView(dt)
        Return dv
    End Function 'CreateDataSource

    Sub Page_Load(sender As Object, e As EventArgs)

        If Session("DG4_ShoppingCart") Is Nothing Then
            Cart = New DataTable()
            Cart.Columns.Add(New DataColumn("Item", GetType(String)))
            Cart.Columns.Add(New DataColumn("Price", GetType(String)))
            Session("DG4_ShoppingCart") = Cart
        Else
            Cart = CType(Session("DG4_ShoppingCart"), DataTable)
        End If
        CartView = New DataView(Cart)
        ShoppingCart.DataSource = CartView
        ShoppingCart.DataBind()

        If Not IsPostBack Then
            ' Load this data only once.
            ItemsGrid.DataSource = CreateDataSource()
            ItemsGrid.DataBind()
        End If
    End Sub 'Page_Load


    Sub Page_Init(sender As Object, e As EventArgs)

        ' Create a dynamic column to add to Columns collection.
        Dim NumberColumn As New BoundColumn()
        NumberColumn.HeaderText = "Item Number"
        NumberColumn.DataField = "IntegerValue"

        ' Add column to Columns collection.
        ItemsGrid.Columns.AddAt(2, NumberColumn)
    End Sub 'Page_Init


    Sub Grid_CartCommand(sender As Object, e As DataGridCommandEventArgs)

        Dim dr As DataRow = Cart.NewRow()

        ' e.Item is the table row where the command is raised.
        ' For bound columns, the value is stored in the Text property of the TableCell.
        Dim itemCell As TableCell = e.Item.Cells(2)
        Dim priceCell As TableCell = e.Item.Cells(3)
        Dim item As String = itemCell.Text
        Dim price As String = priceCell.Text

        If CType(e.CommandSource, Button).CommandName = "AddToCart" Then
            dr(0) = item
            dr(1) = price
            Cart.Rows.Add(dr)
        Else

            'Remove from Cart.
            CartView.RowFilter = "Item='" & item & "'"
            If CartView.Count > 0 Then
                CartView.Delete(0)
            End If
            CartView.RowFilter = ""
        End If
        ShoppingCart.DataBind()
    End Sub 'Grid_CartCommand

   </script>

<body>

   <form runat=server>

      <h3>DataGrid Columns Example</h3>

      <table cellpadding="5">
         <tr valign="top">
            <td>

               <b>Product List</b>

               <asp:DataGrid id="ItemsGrid"
                    BorderColor="black"
                    BorderWidth="1"
                    CellPadding="3"
                    AutoGenerateColumns="false"
                    OnItemCommand="Grid_CartCommand"
                    runat="server">

                  <HeaderStyle BackColor="#00aaaa">
                  </HeaderStyle>

                  <Columns>

                     <asp:ButtonColumn
                          HeaderText="Add to cart"
                          ButtonType="PushButton"
                          Text="Add"
                          CommandName="AddToCart"/>

                     <asp:ButtonColumn
                          HeaderText="Remove from cart"
                          ButtonType="PushButton"
                          Text="Remove"
                          CommandName="RemoveFromCart"/>

                     <asp:BoundColumn
                          HeaderText="Item"
                          DataField="StringValue"/>

                     <asp:BoundColumn
                          HeaderText="Price"
                          DataField="CurrencyValue"
                          DataFormatString="{0:c}">

                        <ItemStyle HorizontalAlign="right">
                        </ItemStyle>

                     </asp:BoundColumn>

                  </Columns>

               </asp:DataGrid>

            </td>
            <td>

               <b>Shopping Cart</b>

               <asp:DataGrid id="ShoppingCart"
                    runat="server"
                    BorderColor="black"
                    BorderWidth="1"
                    GridLines="Both"
                    ShowFooter="false"
                    CellPadding="3"
                    CellSpacing="0">

                  <HeaderStyle BackColor="#00aaaa">
                  </HeaderStyle>

                </asp:DataGrid>

            </td>
         </tr>

      </table>

   </form>

</body>
</html>

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签： datagrid string asp session server object

相关文章推荐

新的分享

章节导航