defaultvb.aspx.vb

Telerik是很大的第三方软件制造商

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Collections
Imports System.IO
Imports System.Web.UI
Imports Telerik.WebControls
Imports Telerik.QuickStart

Namespace Telerik.GridExamplesVBNET.Programming.ViewState

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
        Protected WithEvents Button1 As System.Web.UI.WebControls.Button
        Protected Label1 As System.Web.UI.WebControls.Label
        Protected WithEvents RadGrid1 As RadGrid


        Private Sub RadGrid1_NeedDataSource(ByVal [source] As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
            Dim MyOleDbConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("~/Grid/Data/Access/Nwind.mdb"))
            Dim MyOleDbDataAdapter As New OleDbDataAdapter
            MyOleDbDataAdapter.SelectCommand = New OleDbCommand("SELECT Top 600, * FROM Invoices", MyOleDbConnection)

            Dim myDataTable As New DataTable

            MyOleDbConnection.Open()
            Try
                MyOleDbDataAdapter.Fill(myDataTable)
            Finally
                MyOleDbConnection.Close()
            End Try

            RadGrid1.DataSource = myDataTable
        End Sub

#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub


        Private Sub InitializeComponent()
        End Sub

#End Region


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub

        Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
            If Me.DropDownList1.SelectedItem.Value = "Yes" Then
                Me.RadGrid1.MasterTableView.DataSourcePersistenceMode = GridDataSourcePersistenceMode.ViewState
            Else
                Me.RadGrid1.MasterTableView.DataSourcePersistenceMode = GridDataSourcePersistenceMode.NoPersistence
            End If

            Me.RadGrid1.MasterTableView.Rebind()
        End Sub

        Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        End Sub


        Private Sub RadGrid1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid1.PreRender
        End Sub


        Protected Overrides Sub Render(ByVal writer As HtmlTextWriter)
            Me.Label1.Text = "r.a.d.<strong>grid</strong>'s ViewState size is " & RadGrid1.ViewStateSize

            MyBase.Render(writer)
        End Sub
    End Class
End Namespace