主题：[求助]灵活加载数据配置

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

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

 

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

 

 

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

Dim str = "内线网管处理工单1,内线网管处理工单2,内线网管处理工单3"
Dim nstr As String = "1=2"
For Each s As String In str.split(",")
    nstr &= " or 工单当前环节 = '" & s & "'"
Next
msgbox(nstr)

 

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

Dim str = "内线网管处理工单1,内线网管处理工单2,内线网管处理工单3" Dim nstr As String = "1=2" For Each s As String In str.split(",")     nstr &= " or 工单当前环节 = '" & s & "'" Next msgbox(nstr)

 

参考

 

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

 

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

 

For Each dt As Row In Tables("岗位执行操作维护表").Rows
If   dt("表名") = "装机工单清单表" And dt("执行类型") = "加载数据" And dt("工作岗位") = "内线网管组"Then

Dim str = " "& dt("列表项目1") &" "
Dim nstr As String = " 工单号 Is Null Or ( ( 区域 = '惠东县' or 区域 = '龙门县' or 区域 = '大亚湾' or 区域 = '惠阳区' ) and ("
For Each s As String In str.split("/")
    nstr &= " 工单当前环节 = '" & s & "' or "
Next
msgbox(nstr)
End If
Next

 

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)

End If

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

DataTables("装机工单清单表").LoadFIlter = nstr & nstr1
DataTables("装机工单清单表").Load

Next

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

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) & " )"

msgbox(nstr1)

 

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

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

这段代码要做什么功能？没看懂