- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何做一个筛选的区分功能？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77020)
-- 发布时间：2015/11/9 21:39:00
-- [求助]如何做一个筛选的区分功能？
见下图
-- 发布时间：2015/11/9 21:40:00
--
此主题相关图片如下：qq截图20151109213708.png
-- 发布时间：2015/11/9 21:42:00
--
1、贴出你的代码；
2、哪里里颜色标记。
-- 发布时间：2015/11/9 21:47:00
--
drawcell事件
If Forms("窗口1").Opened Then
Dim str As String = forms("窗口1").Controls("Textbox1").Text
If str > "" AndAlso e.text Like "*" & str & "*" Then
e.Table.DataTable.AddUserStyle("标记", Color.Red, color.Black)
e.style = "标记"
End If
End If
文本框TextChanged事件
Tables("表A").Refresh
-- 发布时间：2015/11/9 21:48:00
--
此主题相关图片如下：qq截图20151109214320.jpg
筛选功能已参考帮助完成，不过在筛选内容的颜色修改上没有突破。
比如2楼的图片，在TextBox1里输入了1398480，在Table里筛选出的13984805352这个号码里对应的1398480为红色，5352颜色不变。
-- 发布时间：2015/11/9 21:51:00
--
回复5楼，那不行，最多如四楼。
如果要个别区分，很麻烦，可以参考 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=54474&skin=0
-- 发布时间：2015/11/9 21:52:00
--
好的，红袍大哥。想去尝试下，看你的案例去了~谢谢
-- 发布时间：2015/11/10 9:28:00
--
红袍大哥，又来骚扰你了
如下图
-- 发布时间：2015/11/10 9:29:00
--
此主题相关图片如下：qq截图20151110090036.jpg
-- 发布时间：2015/11/10 9:37:00
--
1、1=2意思不要任何数据；
2、在单元格画字符的时候，比原先的字符要大，实际字符可能不是你看到那么宽的。你可以把画的字符弄小一些。