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.ResetEnd Sub
-->
</Script>
www.2mysite.net