For Each dt As Row In Tables("岗位执行操作维护表").Rows
If dt("表名") = "移动优化整治项目清单表" And dt("工作岗位") = "内线线路组" And dt("执行类型") = "【加载已处理】按钮" Then
Dim str1 = " "& dt("列表项目1") &" "
Dim nstr1 As String = ""
For Each s1 As String In str1.split("/")
nstr1 &= " 工单当前环节 = '"& s1 &"' or "
Next
nstr1 = nstr1.substring(0, nstr1.length-3) & ""
msgbox(nstr1)
End If
DataTables("移动优化整治项目清单表").LoadFIlter = "nstr1"
DataTables("移动优化整治项目清单表").Load
Next
此主题相关图片如下:360截图20190623215309099.jpg
此主题相关图片如下:360截图20190623215328138.jpg
[此贴子已经被作者于2019/6/23 21:58:05编辑过]