以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  DrawCell中颜色标示重复行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73210)
--  作者：一笑
--  发布时间：2015/8/14 11:49:00
--  DrawCell中颜色标示重复行

在DrawCell事件中写入以下代码，希望能用颜色标示出重复行，不起作用，请修改代码错误，谢谢

Dim pr As DataRow
        Dim filter As String
        filter = " 飞行日期 = \'" & e.Row("飞行日期") & "\' And 落站 = \'" & e.Row("落站") & "\'"
        pr = DataTables("任务书").Find(filter)
        If pr IsNot Nothing Then
            e.Style = "提示4"
        End If
--  作者：大红袍
--  发布时间：2015/8/14 12:02:00
--  

你的飞行日期，有时间的吗？

 

filter = " 飞行日期 = #" & e.Row("飞行日期") & "# And 落站 = \'" & e.Row("落站") & "\'"