主题：[求助]非布尔类型

 

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

改成

 

DataTables("移动优化整治项目清单表").LoadFIlter = nstr1

以上命令执行后，出现在【 工单当前环节 = ' 派错装维人员工单' 】中的 ' 派错装维人员工单'前面多了一个空格；造成这类工单没有被加载出来。命令该怎么修改？

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