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.QuickStart
Imports Telerik.WebControls


Namespace Telerik.InputExamplesVB.Functionality.DataGrid
   
   '/ <summary>
   '/ Summary description for DefaultCS.
   '/ </summary>
   Public Class DefaultVB
      Inherits 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
            BindGrid()
         End If
      End Sub 'Page_Load
      
      
      
      Private ReadOnly Property DataSource() As DataTable
         Get
            If Session("DataGridCS") Is Nothing Then
               Dim data As New DataTable()
               data.Columns.Add("ID")
               data.Columns.Add("Title")
               data.Columns.Add("Name")
               data.Columns.Add("Birthday", GetType(DateTime))
               data.Columns.Add("SocialSecurity")
               
               data.Rows.Add(New Object() {1, "Mr.", "John Smith", New DateTime(1960, 10, 10), "111-22-3333"})
               data.Rows.Add(New Object() {2, "Mrs.", "Jane Brown", New DateTime(1972, 12, 25), "144-22-5555"})
               Session("DataGridCS") = data
            End If
            Return CType(Session("DataGridCS"), DataTable)
         End Get
      End Property
      
      
      Private Sub BindGrid()
         DataGrid1.DataSource = DataSource
         DataGrid1.DataKeyField = "ID"
         DataGrid1.DataBind()
      End Sub 'BindGrid
      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()
         
         AddHandler Me.DataGrid1.EditCommand, AddressOf DataGrid1_EditCommand
         AddHandler Me.DataGrid1.UpdateCommand, AddressOf DataGrid1_UpdateCommand
         AddHandler Me.DataGrid1.CancelCommand, AddressOf DataGrid1_CancelCommand
      End Sub 'InitializeComponent
      Private Sub DataGrid1_EditCommand([source] As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs)
         DataGrid1.EditItemIndex = e.Item.ItemIndex
         BindGrid()
      End Sub 'DataGrid1_EditCommand
      
      
      Private Sub DataGrid1_UpdateCommand([source] As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs)
         Dim socialSecurityBox As RadMaskedTextBox = CType(e.Item.FindControl("socialSecurityTextBox"), RadMaskedTextBox)
         Dim titleTextBox As RadMaskedTextBox = CType(e.Item.FindControl("titleTextBox"), RadMaskedTextBox)
         Dim nameTextBox As TextBox = CType(e.Item.FindControl("nameTextBox"), TextBox)
         Dim birthdayPicker As RadDateInput = CType(e.Item.FindControl("birthdayPicker"), RadDateInput)
         
         Dim rows As DataRow() = DataSource.Select(("ID=" + DataGrid1.DataKeys(e.Item.ItemIndex)))
         If Not (rows Is Nothing) And rows.Length > 0 Then
            rows(0)("SocialSecurity") = socialSecurityBox.TextWithLiterals
            rows(0)("Title") = titleTextBox.TextWithLiterals
            rows(0)("Name") = nameTextBox.Text
            rows(0)("Birthday") = birthdayPicker.SelectedDate
            DataGrid1.EditItemIndex = - 1
            BindGrid()
         End If
      End Sub 'DataGrid1_UpdateCommand
      
      
      Private Sub DataGrid1_CancelCommand([source] As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs)
         DataGrid1.EditItemIndex = - 1
         BindGrid()
      End Sub 'DataGrid1_CancelCommand
      
      
      Private Sub DataGrid1_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged
      End Sub 'DataGrid1_SelectedIndexChanged
   End Class 'DefaultVB 
End Namespace 'Telerik.InputExamplesVB.Functionality.DataGrid