defaultvb.aspx.vb

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

Imports System
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid
Imports Telerik.WebControls

Namespace Telerik.GridExamplesVBNET.AJAX.VirtualScrollPaging

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents RadGrid1 As RadGrid

        Private Sub RadGrid1_NeedDataSource(ByVal [source] As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
            RadGrid1.DataSource = DataSourceHelperVB.GetDataTable("SELECT * FROM LargeOrderDetails", "~/Grid/Data/Access/db1.mdb")
        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

    End Class
End Namespace