我有一个加载数据的命令，想实现通过修改【表A】中所设置的条件进行灵活配置；以下加载命令该怎么修改？

下面红色部分命令改为读取：【表A】中 【表名】=“装机工单清单表”and 【执行类型】=“加载数据” and 【工作岗位】=“内线网管组” 的【列表项目1】中以“,”分隔的内容、关系为“or”

DataTables("装机工单清单表").LoadFIlter = "工单号 Is Null or ( 工单当前环节 = \'内线网管处理工单\' or 工单当前环节 = \'OTTV组处理工单\'  or 工单当前环节 = \'内线卡单处理工单\' or 工单当前环节 = \'IMS固话删除数据工单\'  ) "  
DataTables("装机工单清单表").Load

想把以下这个红色内容改成读取：【表A】中 【表名】=“装机工单清单表”and 【执行类型】=“加载数据” and 【工作岗位】=“内线网管组” 的【列表项目1】内容；该怎么修改？

参考

http://www.foxtable.com/webhelp/scr/0396.htm

以下命令执行的结果为“1”的效果、我想要实现结果为“2”的效果；命令该怎么改？

1、

工单号 Is Null or  ( (区域 = \'惠东县\' or 区域 = \'龙门县\' or 区域 = \'大亚湾\' or 区域 = \'惠阳区\' ) and ( 工单当前环节 = \'服开已归档工单\' or 工单当前环节 = \'完成装机未回单工单\'or 工单当前环节 = \'外线完成装机工单\' or

把最后一个  or 去掉

2、

工单号 Is Null or  ( (区域 = \'惠东县\' or 区域 = \'龙门县\' or 区域 = \'大亚湾\' or 区域 = \'惠阳区\' ) and ( 工单当前环节 = \'服开已归档工单\' or 工单当前环节 = \'完成装机未回单工单\'or 工单当前环节 = \'外线完成装机工单\' ))

增加两个 ））

nstr = nstr.substring(0, nstr.length-3) & "))"

msgbox(nstr)

 如果我想实现加载【装机工单清单表】的数据、条件是满足 nstr & nstr1 的内容；以下命令该怎么改？

For Each dt As Row In Tables("岗位执行操作维护表").Rows

If  dt("表名") = "装机工单清单表" And dt("执行类型") = "维护区域" And dt("工作岗位") = "内线归档组1"  Then
Dim str = " "& dt("列表项目1") &" "
Dim nstr As String = " 工单号 Is Null Or ( ( "
For Each s As String In str.split("/")
    nstr &= " 区域 = \'" & s & "\' or "
Next
nstr = nstr.substring(0, nstr.length-3) & ") and ("

msgbox(nstr)
End If

此主题相关图片如下：360截图20181229103608416.jpg

If   dt("表名") = "装机工单清单表" And dt("执行类型") = "加载数据" And dt("工作岗位") = "内线网管组"  Then
Dim str1 = " "& dt("列表项目1") &" "
Dim nstr1 As String = ") And ("
For Each s1 As String In str1.split("/")
    nstr1 &= " 工单当前环节 = \'" & s1 & "\' or "
Next
nstr1 = nstr1.substring(0, nstr1.length-3) & "))"

msgbox(nstr1)

Next

For Each dt As Row In Tables("岗位执行操作维护表").Rows

Dim nstr As String = " 工单号 Is Null Or ( ( " \'调换一下代码位置

Dim nstr1 As String = ") And (" \'调换一下代码位置

If  dt("表名") = "装机工单清单表" And dt("执行类型") = "维护区域" And dt("工作岗位") = "内线归档组1"  Then
Dim str = " "& dt("列表项目1") &" "

没看懂全部代码的用法，虽然遍历了所有行，这个代码最终也只能显示最后一行的加载条件

如果按照以下公式执行、命令正常：

Dim dr1 As DataRow = DataTables("弱光整治清单表").sqlFind("宽带帐号 = \'" & r5("宽带帐号") & "\' and ( 工单当前环节 = \'OLT或红外问题工单\' or 工单当前环节 = \'光端口被关停工单\' or 工单当前环节 = \'光功率不达标工单\' or 工单当前环节 = \'核查不达标工单\' or 工单当前环节 = \'红线内问题工单\' or 工单当前环节 = \'客户不配合整治工单\' or 工单当前环节 = \'请求打开光端口工单\' or 工单当前环节 = \'派错装维人员工单\' or 工单当前环节 = \'三网合一或入户线问题工单\' or 工单当前环节 = \'外线跟进处理工单\' or 工单当前环节 = \'需关停端口工单\' ) ") 
If dr1 IsNot Nothing  Then
e.DataRow("当前工作内容") &= vbcrlf &  "该用户为【存量弱光工单】,请处理故障的同时进行【弱光】处理;【弱光整治清单表】系统编号:【"  & dr1("编号") &"】"
Vars("当前工作内容") = "该用户为【存量弱光工单】,请处理故障的同时进行【弱光】处理;【弱光整治清单表】系统编号:【"  & dr1("编号") &"】"
Else
If  e.DataRow("当前工作内容")  Like "*存量弱光工单*" Then
e.DataRow("当前工作内容")  = e.DataRow("当前工作内容").Replace(Vars("当前工作内容"),"")
Else
End If
End If
End If

如果把红色字体的内容替换以下内容、命令就无法执行：

For Each dt1 As DataRow In DataTables("岗位执行操作维护表").SQLSelect("")
If   dt1("表名") = "弱光整治清单表"  And dt1("工作岗位") = "投诉受理组"  And dt1("执行类型") = "弱光工单匹配"   Then
Dim str1 = dt1("列表项目1")
Dim nstr1 As String = "宽带帐号 = \'"& r5("宽带帐号") &"\' And ( "
For Each s1 As String In str1.split("/")
nstr1 &= " 工单当前环节 = \'"& s1 &"\' Or "
Next
nstr1 = nstr1.substring(0, nstr1.length-4) & " )"

Dim dr1 As DataRow = DataTables("弱光整治清单表").sqlFind("nstr1")  

If dr1 IsNot Nothing  Then
e.DataRow("当前工作内容") &= vbcrlf &  "该用户为【存量弱光工单】,请处理故障的同时进行【弱光】处理;【弱光整治清单表】系统编号:【"  & dr1("编号") &"】"
Vars("当前工作内容") = "该用户为【存量弱光工单】,请处理故障的同时进行【弱光】处理;【弱光整治清单表】系统编号:【"  & dr1("编号") &"】"
Else
If  e.DataRow("当前工作内容")  Like "*存量弱光工单*" Then
e.DataRow("当前工作内容")  = e.DataRow("当前工作内容").Replace(Vars("当前工作内容"),"")
Else
End If
End If
End If
Next