defaultvb.aspx.vb

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

                    Dim item2 As GridDataItem = Me.FindSelectedItem(view1)
                    Me.dsNWind1.OrderDetails.Clear()
                    If (Not item2 Is Nothing) Then
                        Me.daOrderDetails.SelectCommand.CommandText = ("Select * from [Order Details] where OrderID = " & item2.Item("OrderID").Text)
                        Me.daOrderDetails.Fill(Me.dsNWind1.OrderDetails)
                        e.DetailTableView.Visible = True
                    Else
                        e.DetailTableView.Visible = False
                    End If
                End If
            End If
        End Sub

        Private Sub RadGrid1_ItemCommand(ByVal source As Object, ByVal e As GridCommandEventArgs) Handles RadGrid1.ItemCommand
            If ((e.CommandName = "Select") AndAlso (e.Item.OwnerTableView.DataMember = "Orders")) Then
                CType(CType(e.Item, GridDataItem).OwnerTableView.ParentItem, GridDataItem).ChildItem.NestedTableViews(1).Rebind()
            End If
        End Sub

        Private Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
            Me.oleDbConnection1.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & MyBase.Server.MapPath("~/Grid/Data/Access/NWind.mdb"))
            Me.daCustomers.SelectCommand.Connection = Me.oleDbConnection1
            Me.daOrders.SelectCommand.Connection = Me.oleDbConnection1
            Me.daOrderDetails.SelectCommand.Connection = Me.oleDbConnection1
            Me.daCustomers.Fill(Me.dsNWind1.Customers)
            Me.RadGrid1.DataSource = Me.dsNWind1
        End Sub

        Protected Sub Button1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim myButton As Button = CType(sender, Button)
            Dim item As GridItem = CType(myButton.BindingContainer, GridItem)

            If (item.Selected) Then
                myButton.Text = "Deselect Row"
            Else
                myButton.Text = "Select Row"
            End If
        End Sub 'Button1_Click

        Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim myButton As Button = CType(sender, Button)
            Dim item As GridItem = CType(myButton.BindingContainer, GridItem)

            If (item.Selected) Then
                item.Selected = False
                myButton.Text = "Select Row"
            Else
                item.Selected = True
                myButton.Text = "Deselect Row"
            End If
        End Sub 'Button1_Click

        Protected Sub LinkButton1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim myButton As LinkButton = CType(sender, LinkButton)
            Dim item As GridItem = CType(myButton.BindingContainer, GridItem)

            If (item.Selected) Then
                myButton.Text = "Deselect Row"
            Else
                myButton.Text = "Select Row"
            End If
        End Sub 'Button1_Click

        Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim myButton As LinkButton = CType(sender, LinkButton)
            Dim item As GridItem = CType(myButton.BindingContainer, GridItem)

            If (item.Selected) Then
                item.Selected = False
                myButton.Text = "Select Row"
            Else
                item.Selected = True
                myButton.Text = "Deselect Row"
            End If
        End Sub 'LinkButton1_Click

        Protected Sub ImageButton1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim myButton As ImageButton = CType(sender, ImageButton)
            Dim item As GridItem = CType(myButton.BindingContainer, GridItem)

            If (item.Selected) Then
                myButton.ToolTip = "Deselect Row"
            Else
                myButton.ToolTip = "Select Row"
            End If
        End Sub 'Button1_Click

        Protected Sub ImageButton1_Click(ByVal sender As Object, ByVal e As ImageClickEventArgs)
            Dim myButton As ImageButton = CType(sender, ImageButton)
            Dim item As GridItem = CType(myButton.BindingContainer, GridItem)

            If (item.Selected) Then
                item.Selected = False
                myButton.ToolTip = "Select Row"
            Else
                item.Selected = True
                myButton.ToolTip = "Deselect Row"
            End If
        End Sub 'ImageButton1_Click


        ' Fields
        Protected daCustomers As OleDbDataAdapter
        Protected daOrderDetails As OleDbDataAdapter
        Protected daOrders As OleDbDataAdapter
        Protected dsNWind1 As dsNWind

        Protected Button1 As System.Web.UI.WebControls.Button
        Protected LinkButton1 As System.Web.UI.WebControls.LinkButton
        Protected ImageButton1 As System.Web.UI.WebControls.ImageButton

        Protected oleDbConnection1 As OleDbConnection
        Protected oleDbDeleteCommand1 As OleDbCommand
        Protected oleDbDeleteCommand2 As OleDbCommand
        Protected oleDbDeleteCommand3 As OleDbCommand
        Protected oleDbInsertCommand1 As OleDbCommand
        Protected oleDbInsertCommand2 As OleDbCommand
        Protected oleDbInsertCommand3 As OleDbCommand
        Protected oleDbSelectCommand1 As OleDbCommand
        Protected oleDbSelectCommand2 As OleDbCommand
        Protected oleDbSelectCommand3 As OleDbCommand
        Protected oleDbUpdateCommand1 As OleDbCommand
        Protected oleDbUpdateCommand2 As OleDbCommand
        Protected oleDbUpdateCommand3 As OleDbCommand

        Protected WithEvents RadGrid1 As RadGrid
    End Class
End Namespace