以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于包含值的判断  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=82075)
--  作者：wtt402
--  发布时间：2016/3/11 8:59:00
--  关于包含值的判断
如何判断当前行的某一列里是否属于我要求的内容。。。例如，判断当前行“项目号”是否属于25,26,27,28,29这几个数字内，，怎么写代码。。谢谢了
1.是字符串类型
2.是这个意思，判断是否=25,26,27。。不包含那种1256这种包含，就是单纯等于25,26,27这样

[此贴子已经被作者于2016/3/11 9:19:56编辑过]
--  作者：黄训良
--  发布时间：2016/3/11 9:05:00
--  
1、某一列的内容是多值字段还是其他类型？
2、某一列的内容是不是包含25,26,27,28,29某一个值？
--  作者：wtt402
--  发布时间：2016/3/11 9:09:00
--  
1.是字符串类型
2.是这个意思，判断是否=25,26,27。。不包含那种1256这种包含，就是单纯等于25,26,27这样
--  作者：黄训良
--  发布时间：2016/3/11 9:20:00
--  
Dim a As String = Tables("表A").Current("第一列")
Dim s() As String = {"25","26","27","28","29"}
For Each p As String In s
    If p = a
        msgbox("存在")
        Exit For
    End If
Next
--  作者：wtt402
--  发布时间：2016/3/11 9:27:00
--  
那如果只要判断某一列内字符串是否包含某一段字符串怎么解决。。。。
例如设计保证金。我只要判断是否包含“保证金”三个字
--  作者：黄训良
--  发布时间：2016/3/11 10:20:00
--  
做个例子，方便理解和解决你的问题！
--  作者：大红袍
--  发布时间：2016/3/11 10:43:00
--  
Dim str As String = "26"
Dim gz As String = "1256"
Dim flag As Boolean = False
For Each s As String In str
    If gz.IndexOf(s) = False Then
        flag = True
        Exit For
    End If
Next
If flag Then
    msgbox("正常")
Else
    msgbox("单纯1256组成")
End If