defaultvb.aspx.vb

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

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.IO
Imports System.Web.UI.WebControls
Imports Telerik.QuickStart
Imports Telerik.WebControls


Namespace Telerik.ComboboxExamplesVB.ComboInGrid
   
   '/ <summary>
   '/ Summary description for _Default.
   '/ </summary>
   Public Class DefaultVB
      Inherits XhtmlPage
      Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
      Protected RadComboBox1 As Telerik.WebControls.RadComboBox
      Protected RadComboBox2 As Telerik.WebControls.RadComboBox
      
      
      Private Function GetCachedCustomers() As DataTable
         Dim dt As DataTable = CType(Cache("Customers"), DataTable)
         If dt Is Nothing Then
            dt = New DataTable()
            Dim mdbPath As String = Server.MapPath("~/Combobox/Data/NWind.mdb")
            Dim dbCon As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + mdbPath)
            dbCon.Open()
            
            Dim adapter As New OleDbDataAdapter("SELECT * From Customers", dbCon)
            adapter.Fill(dt)
            dbCon.Close()
            
            Cache("Customers") = dt
         End If
         
         Return dt
      End Function 'GetCachedCustomers
      
      
      Private Sub BindGrid()
         DataGrid1.DataSource = GetCachedCustomers()
         DataGrid1.DataBind()
      End Sub 'BindGrid
      
      
      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
      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
      
      
      '/		Required method for Designer support - do not modify
      '/		the contents of this method with the code editor.
      '/ </summary>
      Private Sub InitializeComponent()
      End Sub 'InitializeComponent
      Public Function LoadCompanyNames() As DataTable
         Return GetCachedCustomers()
      End Function 'LoadCompanyNames
      
      
      Public Function LoadContactNames() As DataTable
         Return GetCachedCustomers()
      End Function 'LoadContactNames
      
      
      Public Sub UpdateDataBaseEntry(id As String, companyName As String, contactName As String)
         Dim dt As DataTable = GetCachedCustomers()
         Dim rows As DataRow() = dt.Select([String].Format("CustomerID='{0}'", id))
         
         rows(0)("CompanyName") = companyName
         rows(0)("ContactName") = contactName
         
         Cache("Customers") = dt
         BindGrid()
      End Sub 'UpdateDataBaseEntry
      
      
      Private Sub DataGrid1_EditCommand([source] As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
         DataGrid1.EditItemIndex = e.Item.ItemIndex
         BindGrid()
      End Sub 'DataGrid1_EditCommand
      
      
      Private Sub DataGrid1_CancelCommand([source] As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.CancelCommand
         DataGrid1.EditItemIndex = - 1
         BindGrid()
      End Sub 'DataGrid1_CancelCommand
      
      
      Private Sub DataGrid1_UpdateCommand([source] As Object, e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
         Dim combo1 As RadComboBox = CType(e.Item.FindControl("RadComboBox1"), RadComboBox)
         Dim combo2 As RadComboBox = CType(e.Item.FindControl("RadComboBox2"), RadComboBox)
         
         UpdateDataBaseEntry(e.Item.Cells(0).Text, combo1.Text, combo2.Text)
         
         DataGrid1.EditItemIndex = - 1
         BindGrid()
      End Sub 'DataGrid1_UpdateCommand
      
      
      Private Sub DataGrid1_PageIndexChanged([source] As Object, e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
         DataGrid1.EditItemIndex = - 1
         DataGrid1.CurrentPageIndex = e.NewPageIndex
         BindGrid()
      End Sub 'DataGrid1_PageIndexChanged
   End Class 'DefaultVB
End Namespace 'Telerik.ComboboxExamplesVB.ComboInGrid