[求助]判断语句不执行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有1985人关注过本帖树形打印复制链接主题：[求助]判断语句不执行

铜豆

小大 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

[此贴子已经被作者于2016/12/21 11:34:55编辑过]

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/21 11:34:00 [只看该作者]

If dr("IP定位") Like "*" & Ary(1) & "*" Then

铜豆

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00

Post By：2016/12/21 11:50:00 [只看该作者]

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

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2016/12/21 12:02:00 [只看该作者]

不可以。

铜豆

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

老师运行这段代码速度有点慢150行要40秒左右，有没有什么方法可以快点，我代码是放在DataColChanged事件中

[此贴子已经被作者于2016/12/21 12:33:12编辑过]

blackzhu

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/12/21 13:12:00 [只看该作者]

你都几层遍历了.

blackzhu

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/12/21 13:17:00 [只看该作者]

这样改改吧!

If e.DataCol.Name = "IP定位" Then
    Dim dr As DataRow = DataTables("行政级别").Find("省 like '*" & e.DataRow("IP定位") & "*'")
    If dr IsNot Nothing Then
        e.DataRow("省") = dr("省")
    End If
End If

铜豆

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00

Post By：2016/12/21 13:17:00 [只看该作者]

有改进方法吗？

铜豆

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：78 积分：589 威望：0 精华：0 注册：2016/12/15 18:05:00

Post By：2016/12/21 13:22:00 [只看该作者]

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

blackzhu

小大 10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2016/12/21 13:30:00 [只看该作者]

If e.DataCol.Name = "IP定位" Then

Dim Arys As List(Of String())

Arys = DataTables("行政级别").GetValues("省|市")

Dim str As String = e.DataRow("IP定位").tostring

For Each Ary As String() In Arys

If str.Contains(Ary(0)) The

e.DataRow("省") = Ary(0)

End If

[此贴子已经被作者于2016/12/21 13:30:35编辑过]

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：[求助]判断语句不执行