defaultvb.aspx.vb

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

Imports System
Imports System.Data
Imports System.Data.Common
Imports System.Data.OleDb
Imports System.Globalization
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports Telerik.WebControls
Imports Telerik.QuickStart
Imports Telerik.QuickStart.Grid

Namespace Telerik.GridExamplesVBNET.Hierarchy.TwoTablesAtLevel
    Public MustInherit Class DefaultVB
        Inherits XhtmlPage

        Protected WithEvents Button1 As Button
        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 Orders")
            End If

            RadGrid1.MasterTableView.DetailTables(0).DataSource = DataSourceHelperVB.GetDataTable("SELECT * FROM Customers")
            RadGrid1.MasterTableView.DetailTables(1).DataSource = DataSourceHelperVB.GetDataTable("SELECT EmployeeID, LastName, FirstName, Title, TitleOfCourtesy, BirthDate, HireDate FROM Employees")
        End Sub

    End Class
End Namespace