defaultvb.aspx.vb

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

Imports System
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.SessionState
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls
Imports Telerik.WebControls


Namespace Telerik.ExamplesVBNET.RadCalendar.Functionality.DataBinding
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits Telerik.QuickStart.XhtmlPage
      Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
      
      
      Private Sub Page_Load(sender As Object, e As System.EventArgs) Handles MyBase.Load
         If Not Page.IsPostBack Then
            RebindGrid()
         End If
      End Sub 'Page_Load
      
      
      Private ReadOnly Property DataSource() As DataTable
         Get
            If Session((Request.CurrentExecutionFilePath + "Dates")) Is Nothing Then
               Dim table As New DataTable("Events")
               table.Columns.Add("Dates")
               table.Rows.Add(New Object() {New DateTime(2006, 3, 10)})
               table.Rows.Add(New Object() {New DateTime(2006, 3, 15)})
               table.Rows.Add(New Object() {Nothing})
               table.Rows.Add(New Object() {System.DBNull.Value})
               table.Rows.Add(New Object() {New DateTime(2006, 4, 1)})
               
               Session((Request.CurrentExecutionFilePath + "Dates")) = table
            End If
            
            Return CType(Session((Request.CurrentExecutionFilePath + "Dates")), DataTable)
         End Get
      End Property
      Protected Overrides Sub OnInit(e As EventArgs)
         '
         ' CODEGEN: This call is required by the ASP.NET Web Form Designer.
         '
         InitializeComponent()
         MyBase.OnInit(e)
      End Sub 'OnInit
      
      
      '/ <summary>
      '/ Required method for Designer support - do not modify
      '/ the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
      Private Sub DataGrid1_EditCommand([source] As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
         DataGrid1.EditItemIndex = e.Item.ItemIndex
         
         RebindGrid()
      End Sub 'DataGrid1_EditCommand
      
      
      Private Sub RebindGrid()
         DataGrid1.DataSource = DataSource
         DataGrid1.DataBind()
      End Sub 'RebindGrid
      
      
      Private Sub DataGrid1_CancelCommand([source] As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.CancelCommand
         DataGrid1.EditItemIndex = - 1
         RebindGrid()
      End Sub 'DataGrid1_CancelCommand
      
      
      Private Sub DataGrid1_UpdateCommand([source] As Object, e As DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
         Dim picker As RadDatePicker = CType(e.Item.FindControl("picker1"), RadDatePicker)
         Dim newDate As DateTime = picker.SelectedDate
         DataSource.Rows(e.Item.DataSetIndex)("Dates") = newDate
         
         DataGrid1.EditItemIndex = - 1
         RebindGrid()
      End Sub 'DataGrid1_UpdateCommand
   End Class 'DefaultVB 
End Namespace 'Telerik.ExamplesVBNET.RadCalendar.Functionality.DataBinding