' 导入命名空间
Imports System.Data
Imports System.Configuration
Imports System.Collections
Imports System.Linq
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Xml.Linq
Imports System.Web.DynamicData


Partial Public Class QueryableFilterRepeaterSample
    Inherits System.Web.UI.Page
    Protected table As MetaTable

    Protected Sub Page_Init(ByVal sender As Object, ByVal e As EventArgs)
        'setSelectionFromUrl
        DynamicDataManager1.RegisterControl(GridView1, True)
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        table = GridDataSource.GetTable()
        Title = table.DisplayName

        ' Disable various options if the table is readonly
        If table.IsReadOnly Then
            GridView1.Columns(0).Visible = False
        End If
    End Sub

    ' Handle the filter change event.
    ' This function resets the index of the page to display.
    Protected Sub OnFilterSelectionChanged(ByVal sender As Object, ByVal e As EventArgs)
        GridView1.PageIndex = 0
    End Sub
End Class

' 导入命名空间
Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.ComponentModel.DataAnnotations
Imports System.Web.DynamicData

'Define the enumeration to apply
'to the OrderQty data field.
'This enumeration is used for filtering.
Public Enum QtyEnum
    None = 0
    Small1 = 1
    Small2 = 2
    Small3 = 3
    Medium10 = 10
    Medium11 = 11
    Medium12 = 12
    Medium13 = 13
    Medium14 = 14
    Large21 = 21
    Large22 = 22
    Large23 = 23
    XLarge60 = 60
    XLarge70 = 70
End Enum

<MetadataType(GetType(SalesOrderDetail_MD))> _
Partial Public Class SalesOrderDetail


End Class

Public Class SalesOrderDetail_MD
    Private _oq As Object

    'Qualify the OrderQty field 
    'with the applicable 
    'enumeration type.
    <EnumDataType(GetType(QtyEnum))> _
    Public Property OrderQty() As Object
        Get
            Return _oq
        End Get
        Set(ByVal value As Object)
            _oq = value
        End Set
    End Property
End Class