Dim nr As Row = e.Table.current '取得当前行 If nr IsNot Nothing Then '如果表格有数据 Dim filter As String = "1=2" '定义变量 For Each s As String In nr("安全员").split("/") '根据/把字符串分割成多个字符 filter &= " or 姓名 = '" & s & "'" '合成条件，如 1=2 or 姓名 = '张三' or 姓名 = '李四' Next forms("窗口1").controls("table1").Table.filter = filter '设置筛选 End If
加好友 
发短信
Post By：2017/7/23 17:31:00 [显示全部帖子]
