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) Exit For Else e.DataRow("后台")= 1 End If Next End Select
|