Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]判断语句不执行


  共有1982人关注过本帖树形打印复制链接

主题：[求助]判断语句不执行
帅哥哟，离线，有人找我吗？
铜豆
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00 		[求助]判断语句不执行  发帖心情 Post By：2016/12/21 11:27:00 [显示全部帖子]

Dim Arys As List(Of String())
Arys = DataTables("行政级别").GetValues("省|市")
Dim drs As List(Of DataRow)
drs = DataTables("商务通对话表").Select("")
For Each dr As DataRow In drs
    For Each Ary As String() In Arys
        If dr("IP定位") Like " * Ary(1) * " Then
            dr("市") = Ary(1)
        End If
    Next
Next
[此贴子已经被作者于2016/12/21 11:34:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
铜豆
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00 		  发帖心情 Post By：2016/12/21 11:50:00 [显示全部帖子]

老师，上述代码可以修成用FIND 方法查找引用吗？

 回到顶部
帅哥哟，离线，有人找我吗？
铜豆
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00 		  发帖心情 Post By：2016/12/21 12:31:00 [显示全部帖子]

If e.DataCol.Name = "IP定位" Then
Dim Arys As List(Of String())
Arys = DataTables("行政级别").GetValues("省|市")
Dim drs As List(Of DataRow)
drs = DataTables("商务通对话表").Select("")
For Each dr As DataRow In drs
    For Each Ary As String() In Arys
        If dr("IP定位") Like "*" & Ary(0) & "*" Then
            dr("省") = Ary(0)
        End If
        If dr("IP定位") Like "*" & Ary(1) & "*" Then
            dr("市") = Ary(1)
        End If
    Next
Next
End If
老师运行这段代码速度有点慢150行要40秒左右，有没有什么方法可以快点，我代码是放在DataColChanged事件中
[此贴子已经被作者于2016/12/21 12:33:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
铜豆
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00 		  发帖心情 Post By：2016/12/21 13:17:00 [显示全部帖子]

有改进方法吗？
 回到顶部
帅哥哟，离线，有人找我吗？
铜豆
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00 		  发帖心情 Post By：2016/12/21 13:22:00 [显示全部帖子]

老师省是段语句，IP是长语句，*不能在后面哦

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询