defaultvb.aspx.vb

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

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

Namespace Telerik.GridExamplesVBNET.Programming.Sort
    Public Class DefaultVB
        Inherits XhtmlPage

        Private Sub btnAddExpression_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim expression1 As New GridSortExpression
            expression1.FieldName = Me.DropDownList3.SelectedItem.Value
            expression1.SetSortOrder(Me.DropDownList2.SelectedItem.Value)
            Me.RadGrid1.MasterTableView.SortExpressions.AddSortExpression(expression1)
            Me.RadGrid1.MasterTableView.Rebind()
        End Sub

        Private Sub Clear_Click(ByVal sender As Object, ByVal e As EventArgs)
            Me.RadGrid1.MasterTableView.SortExpressions.Clear()
            Me.RadGrid1.MasterTableView.Rebind()
        End Sub

        Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
            Me.RadGrid1.MasterTableView.AllowMultiColumnSorting = Boolean.Parse(Me.DropDownList1.SelectedItem.Value)
            Me.RadGrid1.Rebind()
        End Sub

        Private Sub InitializeComponent()
            AddHandler Me.btnAddExpression.Click, New EventHandler(AddressOf Me.btnAddExpression_Click)
            AddHandler Me.DropDownList1.SelectedIndexChanged, New EventHandler(AddressOf Me.DropDownList1_SelectedIndexChanged)
            AddHandler Me.Clear.Click, New EventHandler(AddressOf Me.Clear_Click)
            AddHandler Me.RadGrid1.NeedDataSource, New GridNeedDataSourceEventHandler(AddressOf Me.RadGrid1_NeedDataSource)
            AddHandler MyBase.Load, New EventHandler(AddressOf Me.Page_Load)
        End Sub

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

        Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        End Sub

        Private Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs)
            Dim connection1 As New OleDbConnection(("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MyBase.Server.MapPath("~/Grid/Data/Access/Nwind.mdb")))
            Dim adapter1 As New OleDbDataAdapter
            adapter1.SelectCommand = New OleDbCommand("SELECT CustomerID, Country, City, CompanyName, ContactName, ContactTitle, PostalCode FROM Customers", connection1)
            Dim set1 As New DataSet
            connection1.Open()
            adapter1.Fill(set1)
            connection1.Close()
            Me.RadGrid1.DataSource = set1.Tables.Item(0)
        End Sub


        ' Fields
        Protected btnAddExpression As Button
        Protected btnPostBack As Button
        Protected Clear As Button
        Protected DropDownList1 As DropDownList
        Protected DropDownList2 As DropDownList
        Protected DropDownList3 As DropDownList
        Protected RadGrid1 As RadGrid
        Protected TextBox1 As TextBox
    End Class
End Namespace