- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]筛选后的单元格标记 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126073)
-- 发布时间：2018/10/13 13:20:00
-- [求助]筛选后的单元格标记
如下图：通过在文本框中输入值对表（基本信息）进行筛选。由于值可能是“身份证号”或“母亲信息_身份证号码”，在不断的筛选过程中，对这两列中符合筛选条件的单元格进行标记（style）。我只写出了筛选的代码，标记的代码怎么弄呀（txxtbox2输入值后才进行标记），求帮助。
此主题相关图片如下：360截图18141217106126106.png
textbox2中textchanged事件的代码如下：
Dim txt As String = e.Form.Controls("TextBox2").Text
Dim tbl As Table = Tables("患者基本信息_Table1")
If txt = "" Then
tbl.Filter = ""
Else
txt = "\'*" & txt & "*\'"
tbl.Filter = "[身份证号] Like " & txt & "Or [母亲信息_身份证号码] Like " & txt
End If
[此贴子已经被作者于2018/10/13 13:21:02编辑过]
-- 发布时间：2018/10/13 13:23:00
--
需要使用的样式已经定义为“选择”。
-- 发布时间：2018/10/13 14:19:00
--
1楼是做筛选，筛选后的数据全部都是符合条件的，还有必要做标记吗？没搞懂你的逻辑
-- 发布时间：2018/10/13 16:14:00
--
符合条件的到底是“身份证号”还是“母亲信息_身份证号码”符合要求。
-- 发布时间：2018/10/13 16:51:00
--
参考：http://www.foxtable.com/webhelp/scr/0656.htm
If forms("窗口1").Opened
Dim txt As String = Forms("窗口1").Controls("TextBox2").Text
If txt > "" AndAlso( e.Col.Name = "身份证号" OrElse e.Col.Name = "母亲信息_身份证号码" ) Then
If e.Row(e.Col.Name) = txt Then
e.Style = "选择"
End If
End If
End If