defaultvb.aspx.vb

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

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

Namespace Telerik.GridExamplesVBNET.GeneralFeatures.ColumnTypes

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage

        Protected Button1 As System.Web.UI.WebControls.Button
        Protected WithEvents btnExport As System.Web.UI.WebControls.Button
        Protected WithEvents RadGrid1 As Telerik.WebControls.RadGrid


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

        Private _boolList As ArrayList


        Protected Function GetList() As ArrayList
            If _boolList Is Nothing Then
                _boolList = New ArrayList
                _boolList.Add(New ListItem("True"))
                _boolList.Add(New ListItem("False"))
            End If

            Return _boolList
        End Function


        Private Sub RadGrid1_NeedDataSource(ByVal [source] As Object, ByVal e As Telerik.WebControls.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 CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode, Bool FROM Customers", MyOleDbConnection)

            Dim myDataTable As New DataTable

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

            RadGrid1.DataSource = myDataTable
        End Sub

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


        Private Sub RadGrid1_CreateColumnEditor(ByVal sender As Object, ByVal e As Telerik.WebControls.GridCreateColumnEditorEventArgs) Handles RadGrid1.CreateColumnEditor
            If TypeOf e.ColumnEditor Is GridDropDownColumnEditor Then
                CType(e.ColumnEditor, GridDropDownColumnEditor).DataSource = Me.GetList()
            End If
        End Sub


        Private Sub btnExport_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExport.Click
            Me.RadGrid1.MasterTableView.ExportToExcel("Export.xls")
        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