主题：筛选后用颜色表示

   我想做一个窗口上面绑定一张表,有一个文本框和按钮用于筛选,但筛选后筛选出来的数据只要符合文本框中的数据时用yellow颜色标出,应该怎么做?以前有DATALIST时我用DRAWCELL做过,但是现在datalist这个取消了,我不知道怎么弄,按照帮助我只能做到整列标出.我的筛选代码为:

 

   CurrentTable.Filter = ""
Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
        Filter = "'*" & .Value & "*'"
    End If
End With
If Filter > "" Then
    Tables("订单").Filter = "产品 Like " & Filter & " Or 客户 Like "  & Filter  & " Or 雇员 Like "  & Filter
End If

 

  样式为:标出信息

 我就是忘了怎么做了,那么示例找不到了.

 

    If  e.Col.Name = "产品" Then
    If e.Row.IsNull(e.Col.Name) = False 

         If e.Row(e.Col.Name) = ?  (如何等于窗口的文本框的数据) Then 
        e.Style = "标出信息" '那么用"优秀"样式绘制单元格
    End If
End If

事件的说明我看了,还是做不出来,狐爸你帮忙写一个.

 

    If e.Row(e.Col.Name) = ?  (如何等于窗口的文本框的数据) Then 
       

  怎么写?这个不对的

我知道怎么回事?其实我第一次就对了,少了一句 If forms("xxx").Opened Then,没有判断窗口是不是打开?

明白了,谢谢!已经OK了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:筛选和搜索并标记好.table

 

分享一个东西,在窗口文本框中输入关键字,经过筛选和搜索后,只要表中数据符合文本框中的数据,自动会用黄色标注出.

这个是给大家学习用的,居然没有人下载.

上次发不上来,所以只能跟在原先我这个的后面,我重发.