defaultvb.aspx.vb

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

Imports System
Imports Telerik.WebControls
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid

Namespace Telerik.GridExamplesVBNET.Programming.DetailTableDataBind
    Public MustInherit Class DefaultVB
        Inherits XhtmlPage

        Protected WithEvents RadGrid1 As RadGrid

        Private Sub RadGrid1_NeedDataSource(ByVal source As Object, ByVal e As GridNeedDataSourceEventArgs) Handles RadGrid1.NeedDataSource
            If Not e.IsFromDetailTable Then
                RadGrid1.DataSource = DataSourceHelperVB.GetDataTable("SELECT * FROM Customers")
            End If
        End Sub

        Private Sub RadGrid1_DetailTableDataBind(ByVal source As Object, ByVal e As WebControls.GridDetailTableDataBindEventArgs) Handles RadGrid1.DetailTableDataBind
            Dim dataItem As GridDataItem = CType(e.DetailTableView.ParentItem, GridDataItem)
            Select Case e.DetailTableView.DataMember
                Case "Orders"
                    Dim CustomerID As String = dataItem("CustomerID").Text
                    e.DetailTableView.DataSource = DataSourceHelperVB.GetDataTable("SELECT * FROM Orders WHERE CustomerID = '" & CustomerID & "'")
                Case "OrderDetails"
                    Dim OrderID As String = dataItem("OrderID").Text
                    e.DetailTableView.DataSource = DataSourceHelperVB.GetDataTable("SELECT * FROM [Order Details] WHERE OrderID = " & OrderID)
            End Select
        End Sub
    End Class
End Namespace