代码不执行
Select Case e.DataTable.Name
Case "搜索引擎"
Dim Arys As List(Of String())
Arys = DataTables("搜索引擎编译").GetValues("网址标示|名称")
For Each Ary As String() In Arys
If e.DataRow("搜索引擎").Contains("Ary(0)") Then 感觉代码应该是出现在这里,用动态方式也不执行
e.DataRow("后台") = Ary(1)
Else
e.DataRow("后台")= 1
End If
Next
End Select
把中间代码换成这样也不执行
Dim drs As List(Of DataRow)
drs = DataTables("搜索引擎编译").Select("")
For Each dr As DataRow In drs
If e.DataRow("搜索引擎").Contains("'" & dr("网址标示") & "'")
e.DataRow("后台") = 0.12
End If
Next
以下在命令框里测试是可以的
Dim Arys As List(Of String())
Arys = DataTables("搜索引擎编译").GetValues("网址标示|名称")
For Each Ary As String() In Arys
If "www.so.com".Contains(Ary(0)) Then
output.show(Ary(1))
Exit For
End If
Next
[此贴子已经被作者于2018/4/27 18:46:47编辑过]