defaultvb.aspx.vb

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

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

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

        Private Sub btnApply_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim view1 As GridTableView = Nothing

            Select Case Me.DropDownList1.SelectedItem.Value
                Case "Customers"
                    view1 = Me.RadGrid1.MasterTableView()
                Case "OrderDetails"
                    view1 = Me.RadGrid1.MasterTableView.DetailTables.Item(0)
            End Select

            Dim style1 As TableItemStyle = Nothing
            Select Case Me.DropDownList4.SelectedItem.Value
                Case "ItemStyle"
                    style1 = view1.ItemStyle
                Case "HeaderStyle"
                    style1 = view1.HeaderStyle
                Case "AlternatingItemStyle"
                    style1 = view1.AlternatingItemStyle
                Case "GroupHeaderItemStyle"
                    style1 = view1.GroupHeaderItemStyle
            End Select

            If (Not style1 Is Nothing) Then
                style1.ForeColor = Me.ColorPicker1.SelectedColor
                style1.BackColor = Me.ColorPicker2.SelectedColor
                Me.RadGrid1.Rebind()
            End If
        End Sub

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

        Private Sub InitializeComponent()
            AddHandler Me.btnApply.Click, New EventHandler(AddressOf Me.btnApply_Click)
            AddHandler Me.RadGrid1.DetailTableDataBind, New GridDetailTableDataBindEventHandler(AddressOf Me.RadGrid1_DetailTableDataBind)
            AddHandler Me.RadGrid1.NeedDataSource, New GridNeedDataSourceEventHandler(AddressOf Me.RadGrid1_NeedDataSource)
            AddHandler Me.RadGrid1.PreRender, New EventHandler(AddressOf Me.RadGrid1_PreRender)
            AddHandler Me.Button1.Click, New EventHandler(AddressOf Me.Button1_Click)
            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_DetailTableDataBind(ByVal source As Object, ByVal e As GridDetailTableDataBindEventArgs)
            Dim item1 As GridDataItem = CType(e.DetailTableView.ParentItem, GridDataItem)
            If (Not item1.Edit AndAlso (e.DetailTableView.DataMember = "OrderDetails")) Then
                Dim set1 As DataSet = CType(e.DetailTableView.DataSource, DataSet)
                e.DetailTableView.DataSource = set1.Tables.Item("OrderDetails").Select(("CustomerID = '" & item1.Item("CustomerID").Text & "'"))
            End If
        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, CompanyName, ContactName, ContactTitle, Address, PostalCode FROM Customers", connection1)
            Dim table1 As New DataTable("Customers")
            Dim table2 As New DataTable("OrderDetails")
            connection1.Open()
            Try
                adapter1.Fill(table1)
                adapter1.SelectCommand = New OleDbCommand("SELECT CustomerID, OD.* from Orders, [Order Details] OD Where Orders.OrderID = OD.OrderID", connection1)
                adapter1.Fill(table2)
            Finally
                connection1.Close()
            End Try
            Dim set1 As New DataSet
            set1.Tables.Add(table1)
            table2.Columns.Add("Price", GetType(Double), "(UnitPrice * Quantity) - Discount")
            set1.Tables.Add(table2)
            Me.RadGrid1.DataSource = set1
        End Sub

        Private Sub RadGrid1_PreRender(ByVal sender As Object, ByVal e As EventArgs)
            Me.RadGrid1.MasterTableView.GetColumn("CustomerID").Visible = False
        End Sub


        ' Fields
        Protected btnApply As Button
        Protected Button1 As Button
        Protected ColorPicker1 As ColorPicker
        Protected ColorPicker2 As ColorPicker
        Protected DropDownList1 As DropDownList
        Protected DropDownList4 As DropDownList
        Protected RadGrid1 As RadGrid
    End Class
End Namespace