searchvb.ascx.vb

来自「Telerik是很大的第三方软件制造商」· VB 代码 · 共 46 行

Imports System
Imports System.Data
Imports System.Drawing
Imports System.Web
Imports System.Web.UI.WebControls
Imports System.Web.UI.HtmlControls

Namespace Telerik.CallbackExamplesVB.Functionality.LoadingUserControls
    '/ <summary>
    '/		Summary description for User.
    '/ </summary>

    Public Class User
        Inherits System.Web.UI.UserControl
        Protected TextBox1 As System.Web.UI.WebControls.TextBox
        Protected dataView1 As System.Data.DataView
        Protected DataGrid1 As System.Web.UI.WebControls.DataGrid
        Protected WithEvents Button1 As System.Web.UI.WebControls.Button


        Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        End Sub 'Page_Load
        ' Put user code to initialize the page here

        Private Property Tasks() As DataTable
            Get
                Return CType(Me.Page, MainPage).Tasks()
            End Get
            Set(ByVal Value As DataTable)
                CType(Me.Page, MainPage).Tasks = Value                
            End Set
        End Property


        Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
            Dim dataView1 As New DataView
            dataView1.Table = Tasks()
            dataView1.RowFilter = String.Format("TaskName like '{0}%'", TextBox1.Text)
            DataGrid1.DataSource = dataView1
            DataGrid1.DataBind()

        End Sub 'Button1_Click
    End Class 'User
End Namespace