studydatagrid1.aspx.vb

该文件包括了WEB标单控件应用的所有实例代码



Partial Class studyDataGrid1
    Inherits System.Web.UI.Page
    Dim Cart As DataGrid

    Function CreateDataSource() As ICollection
        Dim dt As DataGrid
        Dim dr As DataControlRowState
        dt = New DataGrid()

        dt.Columns.Add(New DataGridColumnCollection("IntegerValue", System.Type.GetType("System.Int32")))
        dt.Columns.Add(New DataGridColumnCollection("String", System.Type.GetType("System.String")))
        dt.Columns.Add(New DataGridColumnCollection("CurrencyValue", System.Type.GetType("System.Double")))

        Dim i As Integer
        For i = 1 To 10
            dr = dt.NewRow()
            dr(0) = i
            dr(1) = "Item" & i
            dr(2) = 1.323 * i
            dt.Rows.Add(dr)
        Next i

        Dim dv As DataSourceView
        dv = New DataSourceView(dt)
        CreateDataSource = dv

    End Function

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            'need to load thi data only once
            ItemsGrid.DataSource = CreateDataSource()
            ItemsGrid.DataBind()
        End If
    End Sub

    Sub Grid_CartCommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
        Message.Text = "You selectd" + e.Item.Cells(1).Text
    End Sub
End Class