以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]列重复检查问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83844)

--  作者:yys983
--  发布时间:2016/4/18 15:06:00
--  [求助]列重复检查问题
求助大神,
我想做一个重复值检查的功能(初步设想是用重复值颜色标记的方法,类似EXCEL的条件格式那种)不知道改怎么写,搜索了好几天的案例和帮助文件了,无奈有点小白,所以只好求助了。想问问如果是同列重复值的话,应该是怎么标记,如果不是同列的话,又该怎么标记呢,再此先行谢过各位大神了

--  作者:大红袍
--  发布时间:2016/4/18 15:42:00
--  

参考

 

 下载信息  [文件大小:492.0 KB  下载次数:2]
图片点击可在新窗口打开查看点击浏览该文件:颜色标记.foxdb


--  作者:yys983
--  发布时间:2016/4/18 15:48:00
--  
太囧了,打不开。。图片点击可在新窗口打开查看
--  作者:大红袍
--  发布时间:2016/4/18 15:49:00
--  

 

[此贴子已经被作者于2016/4/18 15:49:37编辑过]

--  作者:大红袍
--  发布时间:2016/4/18 15:52:00
--  

DrawCell事件

 

If e.Col.name = "第一列" Then
    e.Table.DataTable.AddUserStyle("样式1", Color.Red, Color.Black)
    Dim count As Integer = e.Table.DataTable.compute("count(第一列)", "第一列 = \'" & e.Row("第一列") & "\'")
    If count > 1 Then
        e.style = "样式1"
    End If
End If


--  作者:yys983
--  发布时间:2016/4/18 15:57:00
--  
太感谢了,就是要这样的,感谢感谢感谢