如下图:通过在文本框中输入值对表(基本信息)进行筛选。由于值可能是“身份证号”或“母亲信息_身份证号码”,在不断的筛选过程中,对这两列中符合筛选条件的单元格进行标记(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编辑过]