FilterColumn、FilterCriterion、FilterValue、SortColumn 和 SortDirection 屬性以及 Reset 方法范例

FilterColumn、FilterCriterion、FilterValue、SortColumn 和 SortDirection 屬性以及 Reset 方法范例

以下代碼說明了如何在設(shè)計時設(shè)置 RDS.DataControl Server 參數(shù)并使用稱為 Pubs 的 ODBC 數(shù)據(jù)源將其綁定在數(shù)據(jù)識別控件之上。Pubs 是隨 SQL Server 6.5 帶來的。要嘗試該范例，需要名為 txtSortcolumn、txtSortdirection、txtFiltercolumn、txtCriterion 和 txtFilterValue 的超文本控件以及名為 SortFilter 的 HTML 表單輸入按鈕。

<OBJECT CLASSID="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33"

ID=ADC HEIGHT=10 WIDTH=10>

<PARAM NAME="SQL" VALUE="Select * from Sales ">

<PARAM NAME="SERVER" VALUE="http://MyWebServer">

<PARAM NAME="CONNECT" VALUE="dsn=pubs;UID=sa;PWD=;">

</OBJECT>

<!-- Sheridan Grid -->

<Object CLASSID="clsid:AC05DC80-7DF1-11d0-839E-00A024A94B3A"

   CODEBASE="http://MyWebServer

/MSADC/Samples/Sheridan.cab"

   ID=GRID1

      datasrc=#ADC

      HEIGHT=125

      WIDTH=495>

   <PARAM NAME="AllowAddNew" VALUE="TRUE">

   <PARAM NAME="AllowDelete" VALUE="TRUE">

   <PARAM NAME="AllowUpdate" VALUE="TRUE">

   <PARAM NAME="BackColor"   VALUE="-2147483643">

   <PARAM NAME="BackColorOdd"  VALUE="-2147483643">

   <PARAM NAME="ForeColorEven" VALUE="0">

</OBJECT>

<Script Language="VBScript">

<!--

Sub SortFilter_OnClick

   ' 設(shè)置數(shù)值。txtSortcolumn 是一個超文本框控件。

   ' SortColumn 的值將是用戶在 txtSortcolumn 框中指定的文本值。

   If(txtSortcolumn.text <> "") then

      ADC.SortColumn = txtSortcolumn.text

   End If

   ' txtSortdirection 是一個超文本框控件。

   ' SortDirection 的值將是用戶在 txtSortdirection 框中指定的文本值。

   Select Case UCASE(txtSortDirection.text)

   Case "TRUE"

      ADC.SortDirection = TRUE

   Case "FALSE"

      ADC.SortDirection = FALSE

   Case Else

      MsgBox "Only true or false are accepted for sort direction"

   End Select

   ' txtFiltercolumn 是一個超文本框控件。

   ' FilterColumn 的值將是用戶在 txtFiltercolumn 框中指定的文本值。

   If (txtFiltercolumn.text <> "") Then

      ADC.FilterColumn = txtFiltercolumn.text

   End If

   ' txtCriterion 是一個超文本框控件。

   ' FilterCriterion 的值將是用戶在 txtCriterion 框中指定的文本值。

   If (txtCriterion.text <> "") Then

      ADC.FilterCriterion = txtCriterion.text

   End If

   ' txtFilterValue 是一個超文本框控件。

   ' FilterValue 的值將是用戶在 txtFilterValue 框中指定的文本值。

   If (txtFilterValue.text <> "") Then

      ADC.FilterValue = txtFilterValue.text

   End If

   ' 在基于指定排序和篩選屬性的客戶端記錄集上執(zhí)行排序和篩選。

   ' 調(diào)用重新設(shè)置將顯示在數(shù)據(jù)綁定控件中的結(jié)果設(shè)置集刷新以顯示

   ' 已篩選和已排序的記錄集。

   ADC.Reset

End Sub

-->

</Script>