defaultvb.aspx.vb

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

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid
Imports Telerik.WebControls

Namespace Telerik.GridExamplesVBNET.GeneralFeatures.Sorting

    Public MustInherit Class DefaultVB
        Inherits XhtmlPage
        Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
        Protected WithEvents Dropdownlist2 As System.Web.UI.WebControls.DropDownList
        Protected CheckBox1 As System.Web.UI.WebControls.CheckBox
        Protected WithEvents RadGrid1 As Telerik.WebControls.RadGrid
        Protected SortLabel As System.Web.UI.WebControls.Label
        Protected WithEvents CheckBox2 As System.Web.UI.WebControls.CheckBox

#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 RadGrid1_NeedDataSource(ByVal [source] As Object, ByVal e As Telerik.WebControls.GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
            Dim selectStr As String = "SELECT TOP 50 CustomerID, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers"

            If (Not Me.RadGrid1.MasterTableView.AllowCustomSorting) Then
                RadGrid1.DataSource = DataSourceHelperVB.GetDataTable(selectStr)
            Else
                Dim sortString As String = RadGrid1.MasterTableView.SortExpressions.GetSortString()
                If Not sortString Is Nothing Then
                    Me.SortLabel.Text = "Grid sort string: " + sortString
                    Dim sortClause As String = " Order By " + sortString
                    RadGrid1.DataSource = DataSourceHelperVB.GetDataTable(selectStr + sortClause)
                Else
                    Me.SortLabel.Text = "Grid sort string: [empty]"
                    RadGrid1.DataSource = DataSourceHelperVB.GetDataTable(selectStr)
                End If
            End If
        End Sub

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

        Private Sub Dropdownlist2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dropdownlist2.SelectedIndexChanged
            Me.RadGrid1.MasterTableView.SortExpressions.AllowNaturalSort = Boolean.Parse(Me.Dropdownlist2.SelectedItem.Value)
        End Sub

        Private Sub RadGrid1_SortCommand(ByVal [source] As Object, ByVal e As Telerik.WebControls.GridSortCommandEventArgs) Handles RadGrid1.SortCommand
            If Not Me.CheckBox1.Checked Then
                Return
            End If

            If Not e.Item.OwnerTableView.SortExpressions.ContainsExpression(e.SortExpression) Then
                Dim sortExpr As New GridSortExpression
                sortExpr.FieldName = e.SortExpression
                sortExpr.SortOrder = GridSortOrder.Ascending

                e.Item.OwnerTableView.SortExpressions.AddSortExpression(sortExpr)
            End If
        End Sub

        Private Sub RadGrid1_ColumnCreated(ByVal sender As Object, ByVal e As WebControls.GridColumnCreatedEventArgs) Handles RadGrid1.ColumnCreated
            If TypeOf (e.Column) Is GridBoundColumn AndAlso CType(e.Column, GridBoundColumn).DataField = "CustomerID" Then
                CType(e.Column, GridBoundColumn).HeaderText = "Customized"
            End If
        End Sub

        Private Sub CheckBox2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
            Me.SortLabel.Text = ""
            RadGrid1.MasterTableView.AllowCustomSorting = CheckBox2.Checked
            RadGrid1.DataSource = Nothing
            RadGrid1.Rebind()
        End Sub
    End Class
End Namespace