- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]非布尔类型 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136890)
-- 发布时间：2019/6/23 21:57:00
-- [求助]非布尔类型
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/24 10:55:00
--
改成
DataTables("移动优化整治项目清单表").LoadFIlter = nstr1
-- 发布时间：2019/6/24 12:53:00
--
以上命令执行后，出现在【 工单当前环节 = \' 派错装维人员工单\' 】中的 \' 派错装维人员工单\'前面多了一个空格；造成这类工单没有被加载出来。命令该怎么修改？
-- 发布时间：2019/6/24 14:35:00
--
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