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

以下代码说明了如何在设计时设置 RDS.DataControl Server 参数并使用称为 Pubs 的 ODBC 数据源将其绑定在数据识别控件之上。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

   ' 设置数值。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

   ' 在基于指定排序和筛选属性的客户端记录集上执行排序和筛选。

   ' 调用重新设置将显示在数据绑定控件中的结果设置集刷新以显示

   ' 已筛选和已排序的记录集。

   ADC.Reset

End Sub

-->

</Script>