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

Select Case e.DataCol.Name

Case "访客来源"

Dim Arys1 As List(Of String())

Arys1 = DataTables("信息库").GetValues("搜索工具|工具")

Dim str As String = e.DataRow("访客来源")

For Each Ary As String() In Arys1

If str.Contains(Ary(0)) Then

e.DataRow("搜索工具") = Ary(1)

Else

e.DataRow("搜索工具") ="电脑"

End If

End Select

只要加上红色这段，所有的判断只会出现电脑，不会出现Ary(1)，这是为什么呢？

要到达不满足str.Contains(Ary(0))时显示电脑（电脑），如何修改代码

[此贴子已经被作者于2017/1/14 14:39:35编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.table

，老师同时帮我看看字符串提取和数字提取问题

[此贴子已经被作者于2017/1/14 22:29:37编辑过]

判断出错，同时老师帮我看看字符串提取和数字提取

Select Case e.DataCol.Name
    Case "访客来源"
        Dim Arys1 As List(Of String())
        Arys1 = DataTables("信息库").GetValues("搜索工具|工具", "搜索工具 is not null")
        Dim str As String = e.DataRow("访客来源")
        Dim flag As Boolean = True
        For Each Ary As String() In Arys1
            If str.Contains(Ary(0)) Then
                e.DataRow("搜素工具") = Ary(1)

老师此处怎么不能用else
                flag = False
            End If
        Next
        If flag Then e.DataRow("搜素工具") ="电脑"
End Select

老师关于数字和字符怎么分别提取

老师辛苦了，这么晚都没休息，老师有没有关于数字和字符串混合在一起，但要从中字符串和数字分别提取代码怎么写，上传实例已有样式，谢谢老师

老师这是正则吗？帮助里有相关内容吗？

主题：[求助]if判断语句出错