defaultvb.aspx.vb

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

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Telerik.QuickStart

Namespace Telerik.GridExamplesVBNET.DataEditing.MultiColumnEditForm

    Public Class DefaultVB
        Inherits XhtmlPage

        Protected WithEvents RadGrid1 As Telerik.WebControls.RadGrid


#Region "Web Form Designer generated code"

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            '
            ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
            '
            InitializeComponent()
            MyBase.OnInit(e)
        End Sub 'OnInit

        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 MyOleDbConnection As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("~/Grid/Data/Access/Nwind.mdb"))
            Dim MyOleDbDataAdapter As OleDbDataAdapter = New OleDbDataAdapter
            MyOleDbDataAdapter.SelectCommand = New OleDbCommand("SELECT * FROM Employees", MyOleDbConnection)

            Dim myDataTable As DataTable = New DataTable

            MyOleDbConnection.Open()
            Try
                MyOleDbDataAdapter.Fill(myDataTable)
            Finally
                MyOleDbConnection.Close()
            End Try
            RadGrid1.DataSource = myDataTable
        End Sub

        Private Sub RadGrid1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadGrid1.PreRender
            If Not IsPostBack Then
                Me.RadGrid1.MasterTableView.Items(1).Edit = True
                Me.RadGrid1.MasterTableView.Rebind()
            End If
        End Sub
    End Class
End Namespace