- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 筛选 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187501)
-- 发布时间：2023/7/22 9:42:00
-- 筛选
Dim filter As String = "1=2"
For Each dc As Col In Tables("员工资料").Cols
Filter &= " or Convert(" & dc.Name & ",\'System.String\') like \'%" & e.Form.Controls("TextBox1").Text & "%\'"
Next
Tables("员工资料").Filter = filter
Dim dr1 As DataRow = Tables("员工资料").Current.DataRow
If Filter > "" Then
Tables("员工资料").Filter = Filter & "岗位状态 = \'在岗\'" & "\'"
End If
请问如果改上面的黄色部分代码，使其增加一个筛选条件，谢谢
-- 发布时间：2023/7/22 9:45:00
--
If Filter > "" Then
Tables("员工资料").Filter = Filter & "岗位状态 = \'在岗\'" & "岗位状态 = \'在岗\'"
End If
这样行不
-- 发布时间：2023/7/22 9:57:00
--
Tables("员工资料").Filter = "(" & Filter & ") and 岗位状态 = \'在岗\'"
-- 发布时间：2023/7/31 21:38:00
--
蓝老师：这个代码有点问题，如果输入的内容表里有责任会筛选出来，如果没有相同的内容则弹出“未将对象引用设置到对象的实例”错误对话框
-- 发布时间：2023/7/31 22:19:00
--
下面代码去掉，没有什么用处
Dim dr1 As DataRow = Tables("员工资料").Current.DataRow
-- 发布时间：2023/7/31 22:33:00
--
测试很好，谢谢蓝老师