以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何判断某个字段的值在某范围内？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93266)
--  作者：lmlptj
--  发布时间：2016/11/24 10:32:00
--  [求助]如何判断某个字段的值在某范围内？
如题所问：如果表中有一列“学历”，用代码表示（文本型），1、2、3、4分别代表研究生、本科、大专、高中，如何判断“学历”值在“1”、“2”、“3”、”4“中的某一项？有此问，就是找出不在代码范围的人员！
--  作者：有点蓝
--  发布时间：2016/11/24 10:54:00
--  
Tables("表B").Filter = "学历 not in ("1","2")"

上面表示筛选学历不是研究生、本科的人员
--  作者：lmlptj
--  发布时间：2016/11/25 10:11:00
--  
筛选倒是会用！
我想要达到目的是：
在表的DrawCell事件中，用红色标记出这些错误的字典代码！
--  作者：有点蓝
--  发布时间：2016/11/25 10:27:00
--  
麻烦一次性说明你的目的，何必绕来绕去呢。

If e.Col.Name = "学历" AndAlso e.Row.IsNull(e.Col.Name) = False  Then
    Select Case e.Row(e.Col.Name)
        Case "1","2","3","4"
        Case Else
            e.Style = "样式1"
    End Select
End If
--  作者：lmlptj
--  发布时间：2016/11/25 12:01:00
--  
灰常感谢！
我是用了这样的代码：
Select case 
Case "申请人性质","申请补贴类别"
    Dim dr As DataRow = DataTables("字典").Find("字段名称 = \'" & e.Col.Name & "\' and 代码 = \'" & e.Row(e.Col.Name) & "\'")
    If dr Is Nothing Then
        e.Style = "严重"
    End If
end select
[此贴子已经被作者于2016/11/25 12:03:38编辑过]